更改火山图上的平滑度

Question

我已经绘制了一个火山图，但是基础数据存在差距，即直方图数据如下所示：

当我制作火山图时，看起来有点傻：

是否可以在阴影区域应用平滑剂以熨平棱纹特征？ 当然，它必须已经具有与之关联的平滑度，否则阴影每次都会降回到0？

码：

ggplot(fly2[fly2$Region == "different",], aes(x = Probability)) +
 stat_density(aes(ymax = ..density..,  ymin = -..density..),
 fill = "grey50", colour = "grey50",
 geom = "ribbon", position = "identity") +
 facet_grid(. ~ Algorithm) + xlim(0,0.3) +
 coord_flip()

链接到dput文件：

 http://pastebin.com/ba95WEab

Answer 1

使用adjust的geom_density 。

例如，当我使用adjust = 1.6 ，这就是我得到的

ggplot(fly2[fly2$Region == "different",], aes(x = Probability)) +
  stat_density(aes(ymax = ..density..,  ymin = -..density..),
               fill = "grey50", colour = "grey50",
               geom = "ribbon", position = "identity",
               adjust=1.6) +
  facet_grid(. ~ Algorithm) + xlim(0,0.3) +
  coord_flip()