How can we create a similar kind of Candlestick Animation in R