r - 在 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()在这种情况下使用？

谢谢！