在R语言中实现google-motion-charts

本例希望比较20国集团过去若干年的发展轨迹，用谷歌提供的动态视图API在R中进行绘图。我们从世界银行数据库中选取三个变量，分别反映GDP，CO2排放和期望寿命在2001到2007年之间变化。

首先安装必要的程序包，然后用WDI命令从世界银行数据库中加载数据。

install.packages("googleVis")

library(googleVis)

library(WDI)

DF <- WDI(country=c("CN","RU","BR","ZA","IN",'DE','AU','CA','FR','IT','JP','MX','GB','US','ID','AR','KR','SA','TR'), indicator=c("NY.GDP.MKTP.CD", 'SP.DYN.LE00.IN', 'EN.ATM.CO2E.KT'), start=2000, end=2010

M <- gvisMotionChart(DF, idvar="country", timevar="year")

数据存入变量DF后利用gvisMotionChart函数得到动态图变量，对于该变量我们可以直接用绘图命令plot(M)得到图形。也可以将代码存到文档上，代码可复制到博客中实现动态交互效果

cat(M$html$chart, file="tmp.html")

特别是比较美国与中国的发展可以看出，中国几乎是横着走，为经济发展而排放了大量的CO2，而美国是向上爬，轨迹明显不同。（横轴为CO2排放，纵轴为GDP）

参考：

http://code.google.com/p/google-motion-charts-with-r/wiki/GadgetExamples

http://code.google.com/p/google-motion-charts-with-r/

http://blog.revolutionanalytics.com/2011/01/create-motion-charts-in-r-with-the-googlevis-package.html