R中的'lines'命令

Question

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

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

我之前已经定义过：

 x = runif(100000,0,1)

然而，而不是加入点＃＆＃39;在β分布中，它填充了颜色＆＃39;整体都在它之下。所以我基本上在我的直方图上留下了彩色的β分布。

我尝试过改变线型，但这似乎没什么帮助。我怎样才能将它变成单行叠加图？

Answer 1

您正在使用相应的密度绘制成对的随机数...如果您只想覆盖该行，请不要使用runif()，但seq()：< / p>

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)