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")

Geo = gvisGeoMap(Exports, locationvar = "Country", numvar = "Profit", 
    options = list(dataMode = "regions"))
# Display chart
print(Geo, "map")