geom_density per abbinare geom_histogram binwitdh

Question

Vorrei aggiungere una riga a un grafico della barra di distribuzione in ggplot2 per mostrare la distribuzione media ma ho problemi.

Una chiamata ggplot come questo:

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

mi dà le barre degli istogrammi per ogni 30 giorni vale la pena di osservazioni, ma la linea di densità sta rintracciando il conteggio per ogni singolo giorno, come si vede qui sotto (la statica il fondo è da geom_density.

E 'possibile aggiungere uno strato geom_density di sovrapporre una linea che mostra la media per il conteggio dei 30 gruppi al giorno di osservazioni come binwidth in geom_histogram.

Qualsiasi aiuto è apprezzato.

Answer 1

Secondo la risposta di Brian S. Diggs dato in questa e-mail si dovrebbe moltiplicare il valore della ..count.. in geom_density() per il valore di binwidth= in geom_histogram().

set.seed(123) 
df<-data.frame(x=rnorm(1000,100,15)) 

ggplot(df,aes(x))+ 
     geom_histogram(binwidth = 2.5)+ 
     geom_density(aes(y=2.5 * ..count..))