如何在分面面板中设置相同x值的直方图柱透明度？

需求说明 #

我需要展示三类数据集（实验、天然、菌落形态型）中各位置的变异数量，要求：

• 所有分面面板都存在的位置，对应直方图柱子设为完全不透明（alpha=1）
• 仅在单个/部分分面存在的位置，柱子设为半透明（alpha=0.5）

现有代码：

ggplot(dps_plot_expanded, aes(position, fill= variant)) + 
  geom_histogram(position = "stack", binwidth = 5)+ 
  theme_bw() + 
  facet_wrap(~type, dir = "v", scales= "free_y") + 
  ggtitle("dps biofilm") + 
  theme_bw() + 
  theme(text=element_text(size=20))

实现步骤 #

核心是先标记出跨所有分面共享的位置，再将标记值映射到透明度参数上：

1. 预处理数据，标记共享位置

# 加载dplyr（未加载时执行）
library(dplyr)

# 找出在所有type分组中都存在的position
common_positions <- dps_plot_expanded %>%
  group_by(position) %>%
  summarise(unique_type_count = n_distinct(type)) %>%
  filter(unique_type_count == n_distinct(dps_plot_expanded$type)) %>%
  pull(position)

# 给原数据新增透明度标记列
dps_plot_expanded <- dps_plot_expanded %>%
  mutate(alpha_level = ifelse(position %in% common_positions, 1, 0.5))

2. 修改ggplot代码，应用透明度映射

ggplot(dps_plot_expanded, aes(position, fill= variant, alpha = alpha_level)) + 
  geom_histogram(position = "stack", binwidth = 5)+ 
  theme_bw() + 
  facet_wrap(~type, dir = "v", scales= "free_y") + 
  ggtitle("dps biofilm") + 
  theme(text=element_text(size=20)) +
  scale_alpha_identity()  # 直接使用alpha_level列中的数值作为透明度

关键说明 #

• n_distinct(dps_plot_expanded$type)会自动统计数据集的总分组数（此处为3），无需手动写死数值
• scale_alpha_identity()是核心配置，它让ggplot直接使用alpha_level列的1/0.5作为透明度，而非默认生成连续刻度
• 若position为连续值，binwidth=5的设置不会影响共享位置的判断，统计的是原始position数值

内容的提问来源于stack exchange，提问作者Maddie