R中带有ggridges包的堆叠直方图

Question

下面的代码生成重叠的直方图。如何修改此代码以使直方图堆叠在一起？

library(tidyverse)
library(ggridges)

iris %>% 
      pivot_longer(cols = -Species,
                   names_to = "Param", 
                   values_to = "Value") %>% 
      ggplot(aes(x = Value, y = Param))+
      geom_density_ridges(aes(fill = Species),
                          stat = "binline",
                          alpha = 0.5)

​

​

如下所示，我可以使用geom_histogram和facet_wrap实现所需的效果，但从美学的角度来看，我更喜欢使用ggridges的解决方案。

iris %>% 
  pivot_longer(cols = -Species,
               names_to = "Param", 
               values_to = "Value") %>% 
  ggplot(aes(x = Value))+
  geom_histogram(aes(fill = Species),  
                 position = position_stack(), 
                 alpha = 0.5) +
  facet_wrap(~Param,ncol = 1,scales = "free_y")

​

​

Answer 1

如果您将scale = 1添加到您的geom_density_ridges调用中，那么绘图将只是接触(请参阅here)。也可以将缩放值设置为小于1以增加间隔。