Может быть, ваши данные времени относятся к типу символов. Так что измените время или дату типа данных.
Пример:
str(data)
'data.frame': ~ obs. of ~ variables:
$ Time: chr "2017/7/1" "2017/7/2" "2017/7/3" "2017/7/4 " ...
library(lubridate)
data$Time<-ymd(data$Time)
str(data)
'data.frame': ~ obs. of ~ variables:
$ Time: Date, format "2017-7-1" "2017-7-2" "2017-7-3" "2017-7-4 " ...
И попробуйте сделать заговор.