プロットヒストグラムとポーズの同じプロットのpdf

Question

私はポアソン回帰で分析する必要があるデータセットを持っています。

私は次のコードで私のヒストグラムをプロット..私は、PDFと同じプロットにRESPONSのhistrogramをプロットしてみたが、私はどのように見つけていない：

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

をしてもらいます素敵なヒストグラム。
誰かがいくつかの提案を持っている...

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

私もいくつかの他のコードを試してみたが、動作するものを見つけることができません：私はいくつかのコードを試してみたPDFファイルを追加するには、以下のいずれかが嘘？

Answer 1

あなたは、このコードで作業を開始することができます

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

私はあなたの質問は限りそれは（一緒に周波数の座標をヒストグラムとPDFをプロットするために意味をなさないとして間違って一般的にだと思いますヒストグラムと密度プロットは異なります）。あなたは、Rに確率の座標でヒストグラムをプロットするように頼むことができます。虹彩データセットの例はほとんどありません。 1

をあなたが前にやっていたものに比較してください：あなたが与えるもの

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

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

はそれが役に立てば幸い！