概率分布值图

Question

我有过

概率值：0.06,0.06,0.1,0.08,0.12,0.16,0.14,0.14,0.08,0.02,0.04，总和为1

随机变量可能以上述列表中的相应概率取值的相应间隔：

126,162,233,304,375,446,517,588,659,730,801,839

如何绘制概率分布？

在x轴上，间隔直方图与概率值之间的间隔值？

谢谢。

Answer 1

怎么样

x <- c(126,162,233,304,375,446,517,588,659,730,801,839)
p <- c(0.06,0.06,0.1,0.08,0.12,0.16,0.14,0.14,0.08,0.02,0.04)
plot(x,c(p,0),type="s")
lines(x,c(0,p),type="S")
rect(x[-1],0,x[-length(x)],p,col="lightblue")

想要一个快速的答案吗？(使用包含的rect，您可能不需要lines调用，并可以将其更改为plot(x,p,type="n")。像往常一样，我会推荐par(bty="l",lty=1)作为我首选的图形默认设置...)

(解释："s“和"S”是两种不同的阶梯类型(请参阅?plot中的详细信息)：我使用它们来获得分布的左边界和右边界。)

编辑直方图:在你的评论中，你会说“()看起来不像一个直方图”。现在还不太清楚你想要什么。我在上面的例子中添加了矩形--也许这样就可以了？或者你可以这样做

b <- barplot(p,width=diff(x),space=0)

但是，获得正确的x轴标签是一件痛苦的事情。