시각화와 움직임을 입혔다. 추세를 파악하는데는 쩌러줄 것으로 예상된다.
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)
아래와 같이 옵션을 주면 html 텍스트로 결과를 뿌린다.
library("googleVis")
options(gvis.plot.tag = "chart")
M1 <- gvisMotionChart(Fruits, idvar="Fruit", timevar="Year")
plot(M1)
options(gvis.plot.tag = NULL)