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, однако, я не слишком знаком с этим пакетом, поэтому любые рекомендации будут оценены.

Спасибо