Я хотел бы добавить линию на график распределения в ggplot2, чтобы показать среднее распределение, но у меня возникли проблемы.

Звонок ggplot так:

ggplot(x, aes(date_received)) + 
    geom_histogram(aes(y = ..count..), binwidth=30) +
    geom_density()

дает мне гистограммы для каждых 30 дней наблюдений, но линия плотности отслеживает счет для каждого отдельного дня, как показано ниже (статика внизу отgeom_density.

Можно ли добавитьgeom_density слой для наложения линии, которая будет отображать среднее значение для подсчета 30-дневных групп наблюдений, таких какbinwidth вgeom_histogram.

Любая помощь приветствуется.