histogramme et pdf dans la même parcelle pour poisson

Question

J'ai un ensemble de données que j'ai besoin d'analyser avec régression poisson. je tente de tracer la histrogram des responsab dans le même terrain que le pdf, mais je ne trouve pas comment ..

i tracer mon histogramme avec le code suivant:

library(lattice) 
tot <- mydata[, 1] 
histogram(tot) 

et obtenir un bel histogramme. Pour ajouter le pdf que j'ai essayé quelques codes mentir celui ci-dessous:

xlines <-seq(min(tot),max(tot),length.out=100) 
lines(x = xlines,y=dpois(xlines,21)) 

J'ai essayé quelques autres codes aussi bien mais ne peut pas trouver un qui fonctionne ...
Quelqu'un a des suggestions?

Answer 1

Vous pouvez commencer à travailler sur ce code:

library(lattice) 
set.seed(1) 
tot <- rpois(100,21) 
xlines <- seq(min(tot),max(tot),by=1) 
histogram(tot, type="density", 
    panel=function(x, ...){ 
    panel.histogram(x,...) 
    panel.lines(x = xlines, y=dpois(xlines,21), lwd=2, col="red") 
    } 
) 

Answer 2

Je pense que votre question est en général erronée dans la mesure où il est peu judicieux de tracer l'histogramme et pdf ensemble (les coordonnées de fréquence l'histogramme et l'intrigue de densité sont différents). Ce que vous pouvez faire est de demander à R de tracer l'histogramme en coordonnées de probabilité. Voici un petit exemple sur le jeu de données iris.

data=iris 
x=iris[, 1] 
hist(x, freq=F) 
lines(density(x)) 

Qu'est-ce que vous donne: 1

Comparer à ce que vous faisiez avant:

data=iris 
x <- iris[, 1] 
hist(x, freq=T) 
lines(density(x)) 

Hope it helps!