R闪亮的书本按天堆积年度图

Question

我有三年的数据，并想创建一个测向图以说明使用测向图的年/月之间的每日/每月变化。

我已经成功地做到了这一点，方法是每月汇总并为每年及其计数创建单独的列，但是，我希望时间滑块的功能能够放大到每日计数。

  dygraph(mdamage, main="Damage Incidents",xlab="Month", y="# of Damage Incidents") %>%
  dyRangeSelector() 

当我尝试另一种方法以便可以使用范围选择器实现缩放功能时，我可以将原始日期和计数归为一个对象：

#date format ymd 2015-01-01
d_2016<-d_2016 %>%
  group_by(DATE_D) %>%
  summarize(damages=sum(Weight,na.rm=T))

d_2015<-d_2015 %>%
  group_by(DATE_D) %>%
  summarize(damages=sum(Weight,na.rm=T))

temporal<-rbind(d_2016,d_2015)
temporal<-xts(temporal, order.by=temporal$DATE_D)

dystep<-dygraph(temporal, main="Damage Incidents",xlab="Month", y="# of Damage Incidents") %>%
  dyOptions(drawPoints=TRUE,pointSize=2)%>%
  dyRangeSelector()  
dystep

我希望像上一张图​​像一样将年份堆叠在一起，同时还能够缩放到最后一个代码提供的月/周/日。我怀疑这涉及xts软件包，但是，我对该软件包不太熟悉，因此不胜感激。

谢谢