googleVis Example from Takahashi Blog

Source code of Google Motion Chart is taken from Takahashi's Blog.
The chart is produced by these simple 3 lines:

M1 <- gvisMotionChart(Fruits, idvar="Fruit", timevar="Year")
print(M1)
#or
M1$html$chart

Data: Fruits, Chart ID: MotionChart_2011-01-10-21-41-52
R version 2.12.1 (2010-12-16), Google Terms of Use