Используя seq. Дата как перерывы stat_bin для временного ряда

Я пытаюсь к данным временного ряда мусорного ведра с нескольких лет наблюдения к месяцу с помощью stat_bin функция в ggplot2. Код похож на это:

month.breaks<-seq.Date(from=min(afg$DateOccurred),to=max(afg$DateOccurred),by="month")  # All months, for breaks
report.region<-ggplot(afg,aes(x=DateOccurred))+stat_bin(aes(y=..density..,fill=Type),breaks=month.breaks)+facet_wrap(~Region)
print(report.region)

Когда я выполняю печать, однако, я получаю следующую ошибку:

Error in `+.Date`(left, right) : binary + is not defined for Date objects

Если я читаю, это правильно, плюс оператор не определяется для Date объекты и таким образом не возможно выполнить этот тип binning?