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')

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

R: Overlay Poisson distribution over histogram of data

plot

r

graph

poisson

ggplot2