| vanke1127 {animation} | R Documentation |
This is a sample of stock prices of the Vanke Co., Ltd on 2009/11/27.
A data frame with 2831 observations on the following 2 variables.
POSIXt: the time corresponding to stock prices
a numeric vector: stock prices
This data can be obtained from most stock websites.
tab.price = table(vanke1127$price)
plot(as.numeric(names(tab.price)), as.numeric(tab.price), type = "h", xlab = "price",
ylab = "frequency")
oopt = ani.options(interval = 0.5, loop = FALSE, title = "Stock price of Vanke")
## a series of HTML animations with different time spans
saveHTML({
price.ani(vanke1127$price, vanke1127$time, lwd = 2)
}, img.name = "vanke_a", description = "Prices changing along with time interval 15 min")
saveHTML({
price.ani(vanke1127$price, vanke1127$time, span = 30 * 60, lwd = 3)
}, img.name = "vanke_b", description = "Prices changing along with time interval 30 min")
saveHTML({
price.ani(vanke1127$price, vanke1127$time, span = 5 * 60, lwd = 2)
}, img.name = "vanke_c", description = "Prices changing along with time interval 5 min")
## GIF animation
saveGIF(price.ani(vanke1127$price, vanke1127$time, lwd = 2), movie.name = "price.gif",
loop = 1)
ani.options(oopt)