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

Question

我使用复制这些数据的位置绘制了一些数据geom_density_ridges，并通过添加图层将其组合成一个图。

我想将复制的平均值绘制为一条线，将 std 绘制为错误阴影。与此图相似的线条和阴影在这里。

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

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, y = Species), scale = 1,  fill = 'transparent')

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

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

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

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

任何帮助表示赞赏。