R : Времеви редове за диграфи

Първо, аз не съм професионалист в R и имам трудности при управлението на дати и часови серии, ще се радвам на всякакви съвети като уроци по тази тема, които може да намеря в мрежата.

Бих искал да начертая диграф на времева серия, тук е моят код

library(lubridate)
library(dygraphs)
library(zoo)
library(xts)

#the data
data1<-rnorm(105120)

##data between 2014-01-01 and 2014-12-31 every five minute
d1<-seq(as.POSIXct("2014-01-01 00:00:00"), as.POSIXct("2014-12-31 23:59:00"), by=300)

#data frame
df <- data.frame(cbind(d1, data1))

Тогава

 #time serie
 ts1<-ts(df[,2], start=0,end=365*24,frequency=60/5)

Не знам как да дефинирам времева серия между две дати??

някои тестове, които опитвам с помощ в мрежата

##test
z1 <- as.zoo(ts1)
z1xts <- xts(z1 , date_decimal(index(z1)))

Dygraphs тества, но нищо от това не работи

##test dygraph 
dygraph(df) %>% dyRangeSelector()
dygraph(ts1) %>% dyRangeSelector()
dygraph(z1xts) %>% dyRangeSelector()