r - googlVis MotionChart R的TimeVar日期

Question

这是我的代码：

ages <- c("12", "13", "14", "15", "16", "17") #building a dataframe        
subjects <- rep(ages, 9)
date <- c("2008-05-01","2008-06-01", "2008-07-01", "2008-08-01", "2008-09-01", "2008-10-01", "2008-11-01", "2008-12-01", "2009-01-01")
date.class <- as.Date(rep(date, rep(6, length(date))))
val1 <- rnorm(54) 
val2 <- rnorm(54)
val3 <- rnorm(54)
val4 <- rnorm(54)
DF <- data.frame(Subject = subjects, 
                 Date = date.class, 
                 Val1 = val1, 
                 Val2 = val2, 
                 Val3 = val3, 
                 Val4 = val4)

library(googleVis) 
M <- gvisMotionChart(DF, idvar = "Subject", timevar = "Date")
plot(M)

我希望图中的时间变量滑块仅显示MONTHLY我的DF. 例如，随着时间的推移，我只想看到“2008 年 5 月 1 日”、“2008 年 6 月 1 日”等。googleVis 出于某种原因想要为时间滑块创建更精细的网格，而是显示“ 5/1/2008”、“5/2/2008”、...“5/31/2008”、“6/1/2008”、“6/2/2008”等。我试过弄乱'gvisMotionChart' 函数中的 'date.format' 选项。

帮助（gvisMotionChart）

但我没有运气。有没有人有办法解决吗？