Plotting with googleVis

http://rpubs.com/kaz_yos/1273 のggplot2による可視化をgoogleVisで行ったもの。
ｘ軸をTimeに変更すると、先の可視化と同様のものになる。
なお、データ作成までは上記URLのコードを流用している。

googleVisを使う際は{r results='asis'}にしておくこと。
previewHTML の段階では何も表示されないので慌てないように。

library(googleVis)

data.ever.in.top.group$year <- as.Date(paste(sep = "", data.ever.in.top.group$year, 
    "-01-01"))
res <- gvisMotionChart(data.ever.in.top.group, idvar = "name", timevar = "year")
print(res, "chart")