#title MotionChart

시각화와 움직임을 입혔다. 추세를 파악하는데는 쩌러줄 것으로 예상된다.

{{{
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