在泊松的相同图中绘制直方图和pdf

Question

我有一个数据集，我需要用泊松回归进行分析。 我尝试在与pdf相同的情节中绘制响应的histrogram，但我没有找到...

我使用以下代码绘制直方图：

[Object]
   0: Object
      badkamer: Object
         block1: Object
           content: "Text",
           title: "Badkamer"

得到一个漂亮的直方图。要添加pdf，我尝试了一些代码，如下所示：

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

我也尝试过其他一些代码，但找不到有效的代码......
有人有一些建议吗？

Answer 1

我认为你的问题通常是不正确的，因为将直方图和pdf一起绘制（频率直方图和密度图的坐标不同）是没有意义的。你可以做的是让R在概率坐标中绘制直方图。这是虹膜数据集的一个小例子。

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

是什么让你：1

与之前的做法相比：

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

希望它有所帮助！

Answer 2

您可以开始使用此代码：

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")
  }
)