r - 是否可以将 geom_ribbon 与 geom_density_ridges 一起使用？

Question

我已经绘制了复制数据集geom_density_ridges- 并且希望geom_ribbon涵盖三个复制，即错误范围。

我无法拥有geom_ribbon+geom_density_ridges

下面的示例显示了我如何将复制合并到一个图中。任何帮助都将得到应用。

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]]