我首先为一组模拟数据绘制直方图,并使用一种颜色填充条形。然后,我添加了从中模拟出数据的密度函数的线条,并使用不同的颜色画线。现在,我想使用图例来显示一种颜色(直方图的填充颜色)是样本,而另一种颜色(线条的颜色)是理论密度。我该如何实现这个目标?
代码如下:
代码如下:
require(ggplot2)
df <- data.frame(x=rnorm(10^4))
p <- ggplot(df, aes(x=x)) + geom_histogram(aes(y=..density..), fill='steelblue', colour='black', alpha=0.8, width=0.2)
x <- seq(-4, 4, 0.01)
df <- data.frame(x=x, y=dnorm(x))
p <- p + geom_line(data=df, aes(x=x, y=y), colour='red', size=1.5)
p