使用ggplot和R绘制预定义的密度函数

我有三个不同长度的数据集，我想在同一个图上绘制所有三个数据集的密度函数。这是简单的基本图形：

n <- c(rnorm(10000), rnorm(10000))
a <- c(rnorm(10001), rnorm(10001, 0, 2))
p <- c(rnorm(10002), rnorm(10002, 2, .5))

plot(density(n))
lines(density(a))
lines(density(p))

---

n在ggplot2中，幸福的秘诀是将所有东西都放在“长”（或者我猜矩阵导向的人会称之为“稀疏”）格式中：

你让我的夜晚好了很多。我一直在努力解决这个问题，但我想不出来。非常感谢。只是想知道。。。为什么你总是大写ggplot2？我其实不。。。这是我的小指。它只是跳到那边，未经我允许按下shift键。：）我认为这是一个无意识的结果，整天在大写字母中输入大量首字母缩略词。我正在有意识地把它放在小写字母里。我对plyr做了同样的事情（即使在我键入时，我也必须退格并使其小写）。Hadley已经因为在我的代码中的变量名中混合了大小写+下划线而被我狠狠地揍了一顿。如果我不小心，你们会让我更整洁，更容易阅读！
df <- rbind(data.frame(x="n",value=n),
            data.frame(x="a",value=a),
            data.frame(x="p",value=p))
qplot(value, colour=x, data=df, geom="density")

qplot(value, group=x, data=df, geom="density")