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