Me gustaría agregar una línea a un diagrama de barras de distribución en ggplot2 para mostrar la distribución promedio, pero estoy teniendo problemas.

Una llamada a ggplot como esta:

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

me da las barras de histograma para cada 30 días de observaciones, pero la línea de densidad está rastreando el recuento de cada día individual, como se ve a continuación (la estática en la parte inferior es degeom_density.

¿Es posible agregar ungeom_density capa para superponer una línea que mostrará el promedio para el recuento de grupos de observaciones de 30 días como elbinwidth engeom_histogram.

Cualquier ayuda es apreciada.