R：使用ggplot2按组镜像直方图答案

【问题标题】：R: by group mirrored histogram using ggplot2R：使用ggplot2按组镜像直方图
【发布时间】：2021-03-05 12:18:55
【问题描述】：

我想得到一个镜像直方图按组使用 ggplot 如下图所示。

library(ggplot2)
data2 <- data.frame(
  type = c( rep("Top 1", n_segment),
            rep("Top 2", n_segment),
            rep("Bottom 1", n_segment),
            rep("Bottom 2", n_segment)),
  value = c( rnorm(n_segment, mean=5),
             rnorm(n_segment, mean=12),
             rnorm(n_segment, mean=-5),
             rnorm(n_segment, mean=-12))
)

# Represent it
data2 %>%
  ggplot( aes(x=value, fill=type)) +
  geom_density( color="#e9ecef", alpha=0.6)

现在我得到了这个：

但我想将它们镜像如下：

【问题讨论】：

标签： r ggplot2 data-visualization histogram tidyverse

【解决方案1】：

试试这个方法。您可以使用..density.. 并围绕启用data 选项的不同数据子集调整geom_density()，并巧妙地过滤哪些值上升和下降。代码如下：

library(ggplot2)
library(dplyr)
# Represent it
data2 %>%
  ggplot( aes(x=value, fill=type,group=type)) +
  geom_density(aes(y=-1*..density..),alpha=0.6,
               data = ~ subset(., type %in% c("Bottom 1","Bottom 2")))+
  geom_density(aes(y=..density..),alpha=0.6,
               data = ~ subset(., !type %in% c("Bottom 1","Bottom 2")))+
  ylab('density')

输出：

如果你想避免线条，试试这个：

# Represent it 2
data2 %>%
  ggplot( aes(x=value, fill=type,group=type)) +
  geom_density(aes(y=-1*..density..),alpha=0.6,color='transparent',
               data = ~ subset(., type %in% c("Bottom 1","Bottom 2")))+
  geom_density(aes(y=..density..),alpha=0.6,color='transparent',
               data = ~ subset(., !type %in% c("Bottom 1","Bottom 2")))+
  ylab('density')

输出：

【讨论】：