R 如何添加接近3的泊松分布曲线？

我要将曲线添加到现有绘图中。 该曲线应为泊松分布曲线，接近平均值3

我试过这个密码 点是具有1000个值的向量

plot(c(1:1000), points,type="l")
abline(h=3)
x = 0:1000
curve(dnorm(x, 3, sqrt(3)), lwd=2, col="red", add=TRUE)

我得到了一个图，但没有任何曲线。

---

我希望看到一条接近3的曲线。

您可以这样做：

plot(0:20, 3+dpois( x=0:20, lambda=3 ), xlim=c(-2,20))
normden <- function(x){3+dnorm(x, mean=3, sd=sqrt(3))}
curve(normden, from=-4, to=20, add=TRUE, col="red")

运行此代码将产生以下结果：

这是你的本意吗

---

谢谢，但是曲线接近0而不是3你想把它从0线移到3线吗？我不知道我到底明白你到底想要什么，你能不能准确地告诉我，我想把它换成3线！现在它的偏差是3，所以它只是相同的代码移位平均值为3的泊松分布看起来像图0:10，dpois0:10，3，type='b'。可以使用线条0:10、dpois0:10、3将其添加到现有绘图中。我不确定这是否是你想要的，你能解释一下曲线是如何接近3的吗？