将geom_vridgeline与geom_线组合在一个地块中

我想结合geom_vridgeline和（连接的）折线图

geom_线（和geom_点）的值来自不同的数据集。也就是说，它不是geom_vridgeline中使用的观测值的一个时刻（平均值、中值等）

我尝试了简单的geom_vridgeline（…）+geom_线（数据…）+geom_点（…）以及一些调整（添加第二个x轴等）

库（tidyverse）
图书馆（GG）
#原始图表
ggplot（鸢尾，aes（x=种，y=萼片宽度，宽度=…密度，填充=种））+
geom_vridgeline（stat=“ydensity”，trim=FALSE，alpha=0.85，scale=0.25）
#另一个数据集
df%
组别(种类)%>%
总结（新值=平均值（萼片宽度））
#从新数据集中添加行（不起作用）
ggplot（鸢尾，aes（x=种，y=萼片宽度，宽度=…密度，填充=种））+
geom_vridgeline（stat=“ydensity”，trim=FALSE，alpha=0.85，scale=0.25）+
geom_线（数据=df，aes（x=因子（物种），y=新变量））

像这样的

注意：在我的真实示例中，x轴实际上是连续的。我假设，一旦我知道了如何添加geom_线，我也可以添加geom_点

非常感谢

 ggplot() + 
    geom_line(data=df,mapping=aes(x=Species,y=newvar,group = 1)) +
    geom_vridgeline(data=iris, aes(x=Species, y=Sepal.Width, width = ..density..,     fill=Species),stat="ydensity", trim=FALSE, alpha = 0.85, scale = 0.25)

 ggplot() + 
    geom_line(data=df,mapping=aes(x=Species,y=newvar,group = 1)) +
    geom_vridgeline(data=iris, aes(x=Species, y=Sepal.Width, width = ..density..,     fill=Species),stat="ydensity", trim=FALSE, alpha = 0.85, scale = 0.25)