Gostaria de adicionar uma linha a um gráfico de barras de distribuição no ggplot2 para mostrar a distribuição média, mas estou tendo problemas.

Uma chamada ggplot como esta:

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

fornece as barras do histograma para cada 30 dias em observações, mas a linha de densidade está rastreando a contagem para cada dia individual, como visto abaixo (a estática na parte inferior é degeom_density.

É possível adicionar umgeom_density camada para sobrepor uma linha que mostrará a média da contagem de grupos de observações de 30 dias, como obinwidth nogeom_histogram.

Qualquer ajuda é apreciada.