螳 讌 . 豢碁ゼ 磯 讒譴 蟆朱 .

install.packages("googleVis")
library("googleVis")
data(Fruits)
M1 <- gvisMotionChart(Fruits, idvar="Fruit", timevar="Year")
plot(M1)

覈谿 蠏碁Μ覃 蠍 蟾語 螳 . charset utf-8企 蠏碁願瑳.
企 蟆曙磯 html header character set 覦蠑朱.
header <- M1$html$header
header <- gsub("charset=utf-8", "charset=euc-kr", header)
M1$html$header <- header

unique color襦 蠍磯蓋 誤 螻 苦朱..
opt <- list(state='{"colorOption":"_UNIQUE_COLOR"};')
M1 <- gvisMotionChart(tmp[tmp$genre==genre,], idvar="nation", timevar="dt", option=opt)

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

螳 旧 譯朱 html ろ碁 蟆郁骸襯 訖襴磯.
library("googleVis")
options(gvis.plot.tag = "chart")
M1 <- gvisMotionChart(Fruits, idvar="Fruit", timevar="Year")
plot(M1)
options(gvis.plot.tag = NULL)

http://cran.r-project.org/web/packages/googleVis/vignettes/googleVis.pdf
http://decastillo.github.io/googleVis_Tutorial/#1