在 ggridges 中具有均值和 STD 阴影 - 添加到 ggplot 对象

如何解决在 ggridges 中具有均值和 STD 阴影 - 添加到 ggplot 对象

我使用 geom_density_ridges 绘制了一些数据，其中我复制了这些数据，并通过添加图层将其合并为一个图。

我想将复制的平均值绘制为一条线，将 std 绘制为错误阴影。类似于此图的线条和阴影 here。

下面是一个包含一些细节的例子：

Sepal.Length2 <- iris$Sepal.Length+0.1
Sepal.Length3 <- iris$Sepal.Length-0.2

testdata1 <- ggplot() + 
  geom_density_ridges(data = iris,aes(x = Sepal.Length,y = Species),scale = 1,fill = 'transparent')

testdata2 <- ggplot() + 
  geom_density_ridges(data = iris,aes(x = Sepal.Length2,fill = 'transparent')

testdata3 <- ggplot() + 
  geom_density_ridges(data = iris,aes(x = Sepal.Length3,fill = 'transparent')

testdatatotal <- testdata1 + testdata2[["layers"]][[1]] + testdata3[["layers"]][[1]] 

从这里开始：我想在复制品的顶部添加一条平均线和标准错误阴影。

我尝试制作一个 geom_line 并将其添加为图层，但我遇到了缩放问题。

感谢任何帮助。