Testing the Google Vis charts

The Google vis animations do have some limitations for large data sets. However they can be quite fun to play with.

suppressPackageStartupMessages(library(googleVis))
d <- read.csv("http://tinyurl.com/Rexample/climstations.csv")
d$Date <- as.Date(d$Date)


d2 <- subset(d, d$Yr == 2009)
M <- gvisMotionChart(d2, idvar = "station", timevar = "Date")
print(M, "chart")
d2 <- subset(d, d$Yr > 2007)
M2 <- gvisMotionChart(d2, idvar = "station", timevar = "Date")
print(M2, "chart")