vanke1127()
Stock price of Vanke
Yihui Xie & Lijia Yu / 2017-04-04
Barplots of the stock prices of Vanke Co. Ltd on 2009/11/27
library(animation)
tab.price = table(vanke1127$price)
plot(as.numeric(names(tab.price)), as.numeric(tab.price), type = "h",
xlab = "price", ylab = "frequency")
ani.options(interval = 0.5, loop = FALSE, title = "Stock price of Vanke")
price.ani(vanke1127$price, vanke1127$time, span = 15 * 60, lwd = 2)