在ggplot2中结合密度图

Question

我正在尝试改进包含多个密度图的图形。我生成这样的数字：

library(ggplot2)
m <- matrix(data=cbind(rnorm(50, 0, 1), rnorm(50, 0, 1.2), rnorm(50, 0, 1.4), rnorm(50, 0, 1.6)), nrow=50, ncol=4)
ms <- stack(as.data.frame(m))
ggplot(ms, aes(x=values, color=ind)) + geom_density()

我希望将它们组合成一个“平均”密度，而不是单独显示每个密度，并指出密度在每个点的一致性（就像stat_smooth()函数产生的置信区间一样）。

我实际上尝试过使用stat_smooth()，但收到了此错误：

Error: stat_smooth requires the following missing aesthetics: y

在这种情况下有没有办法使用stat_smooth()？

谢谢！