WorldBank_demo_with_googleVis.R

# Thanks to John Maindonald
library(WDI)
indnams <- c("fertility.rate", "life.expectancy", 
          "population", "GDP.per.capita.Current.USD", 
          "15.to.25.yr.female.literacy")
inds <- c('SP.DYN.TFRT.IN','SP.DYN.LE00.IN', 
          'SP.POP.TOTL','NY.GDP.PCAP.CD', 
          'SE.ADT.1524.LT.FE.ZS')
wdiData <- WDI(country="all", indicator=inds,
               start=1960, end=format(Sys.Date(), "%Y"), 
               extra=TRUE)
colnum <- match(inds, names(wdiData))

names(wdiData)[colnum] <- indnams
## Create a motion chart
library(googleVis)
WorldBank <- droplevels(subset(wdiData, 
                              !region %in% "Aggregates"))
M <- gvisMotionChart(WorldBank,
                     idvar="country", timevar="year",
                     xvar="life.expectancy", 
                     yvar="fertility.rate",
                     colorvar="region", 
                     sizevar="population",
                     options=list(width=550, height=500))
## Display the chart in the browser
plot(M)