r - ggplot2:不同美学的传说

Question

我首先绘制一组模拟数据的直方图，然后用一种颜色填充条形图。然后，添加从中模拟数据的密度函数的线，并使线具有不同的颜色。现在，我想使用图例显示一种颜色(直方图的填充色)用于样本，而另一种颜色(线的颜色)用于理论密度。我怎样才能做到这一点？

代码如下

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

Answer 1

您可以完全不更改数据，而指定字面的aes()值，以后可以通过手动缩放比例来定义。

df <- data.frame(x=rnorm(10^4))
p <- ggplot(df, aes(x=x)) + geom_histogram(aes(y=..density.., fill="samples"), 
    alpha=0.8, colour="black", width=0.2)
p <- p+scale_fill_manual("",breaks="samples", values="steelblue")

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="theory"), size=1.5)
p <- p+scale_color_manual("",breaks="theory", values="red")