R 密度曲线条形图

我正在尝试生成一个带有密度曲线的条形图，该曲线显示了条形图的趋势，请参见图1中的示例（我通过power point编辑了该示例）

然而，在我写的脚本中，我无法绘制曲线。出现的只是每个栏中间的线条，请参阅图2。

这里有人知道如何改进我的脚本吗

库（ggplot2）
ggplot（数据集，aes（物种，M1_sava））+
面_wrap（~momento，nrow=1）+#将因子放置在单独的面中
geom#u bar（stat=“identity”）+#制作条形图
coord_flip（）+#翻转轴，使测试名称可以水平
theme_bw（base_size=10）+使用设置字体大小的黑白主题
几何密度（）
莫门托物种M1_sava
S1 M1 1,00
S2 M1 0,86
S3 M1 1,00
S4 M1 1,00
S5 M1 1,00
中六m10,74
S7 M1 0,39
S8 M1 0,83
S9 M1 0,83
S10 M1 0,00
S11 M1 0,70
S12 M1 0,11
S13 M1 1,00
S14 M1 0,00
S15 M1 0,00
S16 M1 0,00
S17 M1 0,00
S18 M1 0,83
S19 M1 0,00
S20 M1 0,00
S21 M1 0,00
S22 M1 0,00
S23 M1 0,00
S24 M1 0,04
S25 M1 0,00
S26 M1 0,00
S1 M2 0,33
S2 M2 0,86
S3 M2 0,39
S4 M2 0,02
S5 M2 0,07
中六M2 0,02
S7 M2 0,87
S8 M2 0,06
S9 M2 0,63
S10 M2 0,33
S11 M2 0,91
S12 M2 0,67
S13 M2 0,18
S14 M2 0,08
S15 M2 0,00
S16 M2 0,00
S17 M2 0,00
S18 M2 0,00
S19 M2 0,08
S20平方米0,00
S21 M2 0,04
S22平方米0,00
S23平方米0,00
S24平方米0,00
S25平方米0,00
S26 M2 0,00
S1 M3 0,04
S2 M3 0,32
S3 M3 0,02
S4 M3 0,00
S5 M3 0,00
中六立方米0,00
S7 M3 0,96
S8 M3 0,06
S9 M3 0,18
S10 M3 0,33
S11 M3 0,63
S12 M3 1,00
S13 M3 0,00
S14 M3 0,94
S15 M3 0,17
S16 M3 0,00
S17 M3 0,41
S18 M3 0,04
S19 M3 0,44
S20 M3 0,17
S21 M3 0,02
S22 M3 0,00
S23 M3 0,00
S24 M3 0,00
S25 M3 0,00
S26 M3 0,00
S1 M4 0,00
S2 M4 0,00
S3 M4 0,00
S4 M4 0,00
S5 M4 0,00
中六M40,00
S7 M4 0,89
S8 M4 0,00
S9 M4 0,03
S10 M4 0,22
S11 M4 0,41
S12 M4 0,46
S13 M4 0,00
S14 M4 0,81
S15 M4 0,39
S16 M4 0,70
S17 M4 0,70
S18 M4 0,00
S19 M4 0,87
S20 M4 0,91
S21 M4 0,33
S22 M4 0,37
S23 M4 0,24
S24 M4 0,15
S25 M4 0,00
S26 M4 0,00

---

也许是这样的？仅更改了

geom_density（）

调用。曲线不是平滑的，但它很接近你想要的。要使它们平滑，您可能需要连续的数据（参见camille的评论）

---

这应该会产生类似的结果（由不同的数据生成）：

要使用

几何密度

，你需要一个连续的值分布，这是物种所没有的。在另一个图中，我猜这些值本身是连续的，但它们被赋予了标签以附加“S”。根据标签，x轴看起来也不是连续的。如果你

dput

你的数据，肯定会有人帮你处理数据类型（非常感谢你的回答。）然而，我真的很想一个曲线的设计是圆的。我发现了一个图形（其链接在下一条评论中），它就像我想要的那样，具有圆形设计（边缘）和渐变颜色。我希望S1的颜色会更暗，S26的方向会更亮。我尝试了下一条评论中的图形脚本，但它看起来不太好。脚本是：ggplot（lincoln_weather，aes（x=

Mean Temperature[F]

，y=

Month

）+geom_density_ridges_gradient（aes（fill=…x…），scale=3，size=0.3）+scale_fill_gradientn（colors=c（“0D0887FF”），“CC4678FF”，“F0921FF”），name=“Temp.[F]”+labs（title=‘林肯东北部的温度’）要查看我提到的颜色渐变图，请查看。不幸的是，我不知道如何在同一个图中同时获得条形图和密度图。我最初的想法是使用密度曲线来强调结果，当我们从M1柱到M4柱观察时，一些以较小数字识别的物种（S1、S2、S3等）将显示得更少（另一方面，选择的物种数量更多）。但现在我认为密度曲线不会带来额外的“高光”，而将条形保留在一个较低的梯度中可能更有趣。

library(ggplot2)
    ggplot(Dataset, aes(specie,M1_sava)) + 
      facet_wrap(~ momento, nrow=1) + #place the factors in separate facets
      geom_bar(stat="identity") + #make the bars
      coord_flip() + #flip the axes so the test names can be horizontal  
      theme_bw(base_size=10)+ #use a black-and0white theme with set font size
      geom_density(stat = "identity", alpha = 0.3, aes(group = momento, fill = momento))