> library(googleVis)
> moim =
read
.csv(
"D:/Users/user/Desktop/moim.csv"
)
Date |
Division |
Count |
2015-10-01 |
남성 |
522 |
2015-10-01 |
여성 |
600 |
2015-11-01 |
남성 |
538 |
2015-11-01 | 여성 | 610 |
...
> str(moim$Date)
> moim$Date <- as.Date(moim$Date)
> moimvis <- gvisMotionChart(moim, idvar=
"Division"
, timevar=
"Date"
)
> plot(moimvis)