r - R中的“行”命令

Question

只是一个简单的问题：我正在尝试在我的直方图中添加一条密度线

lines(x,dbeta(x,6,3))

我之前定义过：

 x = runif(100000,0,1)

然而，它不是“加入β分布的点”，而是“用颜色填充”整个在它之下。所以我基本上在我的直方图上留下了一个彩色的 beta 分布。

我试过改变线型，但这似乎没有帮助。我怎样才能把它变成一个单线叠加图？

Answer 1

您正在绘制具有相应密度的随机数对...如果您只是想覆盖线，请不要使用runif()，但是seq()：

x <- seq(from=0, to=1, length.out=10000)
lines(x, dbeta(x, 6,3))

Answer 2

这是使用的解决方案ggplot2

x = runif(100000,0,1)
x = data.frame(beta=dbeta(x,6,3))
library(ggplot2)

ggplot(x, aes(beta)) + 
  geom_histogram(aes(y=..density..),
                 binwidth=.1,
                 colour="red", fill="white") +
  geom_density(alpha=.2)