R：数据直方图上的叠加泊松分布

Question

我有一些离散数据，我已将其绘制在直方图中。我想覆盖泊松分布以显示数据大致是泊松分布。想象一下下面代码中的两个图合并成一个图，这就是我想要实现的。

# Read data
data <- read.csv("data.csv")

# Plot data
hist(data, prob=TRUE)

# Plot Poisson
c <- c(0:7)
plot(c, dpois(c, mean(data)), type="l")

我试过曲线功能：

curve(c, dpois(x=c, lambda=mean(data)), add=T)

但我得到的只是：

泊松曲线似乎突然停止，但我希望它遵循直方图的形状。

我希望它看起来像这样（不一定有颜色或多个数据集）：

Answer 1

下面的代码可以满足你的要求。

set.seed(12111978)
vec <- rpois(50, 3)
hist(vec, prob=TRUE, ylim = c(0, .25)) # may need to tweak the y axis.
lines(0:max(vec), dpois(0:max(vec), mean(vec)), col = 'red')