airpassengers <- data.frame(
passengers = as.matrix(AirPassengers),
date= zoo::as.Date(time(AirPassengers))
)
animLineChart(
data = airpassengers,
x = "date",
y = "passengers",
duration = 10000 # in milliseconds (10 seconds)
)
Run the code above in your browser using DataLab