ggplot2：为带facet_grid的堆叠条形图自动标记最小值条形

核心思路 #

要自动给每个堆叠条形中的最小值条形添加透明灰色遮罩，关键是先在数据中标记出每个分组内的最小值对应的行，再通过两层geom_bar实现：第一层绘制原有带纹理/颜色的堆叠条形，第二层仅绘制标记为最小值的条形并设置灰色半透明填充。

具体步骤 #

1. 数据预处理：标记最小值
   先根据你的分组逻辑（每个堆叠所属的分组，比如metric+method），用dplyr分组计算并标记最小值行。假设你的数据框为df，包含列：method（MB/TMB）、metric（RMSE/MAE）、category（堆叠的类别）、value（指标数值）：

   library(dplyr)
   library(ggplot2)
   # 模拟数据（替换成你的真实数据）
   set.seed(123)
   df <- expand.grid(method = c("MB", "TMB"),
                     metric = c("RMSE", "MAE"),
                     category = c("A", "B", "C")) %>%
     mutate(value = runif(n(), 1, 10)) %>%
     # 按每个堆叠的分组（此处为method+metric，根据你的实际结构调整）
     group_by(method, metric) %>%
     mutate(is_min = value == min(value)) %>%
     ungroup()
   

2. 绘制带遮罩的堆叠条形图
   用两层geom_bar实现：第一层保留原有颜色和纹理（如果用纹理需加载ggpattern包），第二层仅渲染最小值条形并设置灰色半透明：

   # 如果需要纹理填充，先加载ggpattern
   # library(ggpattern)
   
   ggplot(df, aes(x = method, y = value, fill = category)) +
     # 第一层：原有堆叠条形（带纹理的话替换为geom_bar_pattern）
     geom_bar(stat = "identity", position = "stack")
     # 若用纹理：
     # geom_bar_pattern(stat = "identity", position = "stack",
     #                  pattern = category, pattern_fill = "black", pattern_alpha = 0.3) +
     # 第二层：最小值条形的灰色遮罩
     geom_bar(data = filter(df, is_min),
              stat = "identity", position = "stack",
              fill = "grey50", alpha = 0.4, color = NA) +
     facet_grid(~ metric) +
     theme_bw()
   

关键说明 #

• 分组逻辑：group_by的参数要根据你的实际数据结构调整，确保每个分组对应一个独立的堆叠条形（比如如果你的facet是行+列，可能需要加入facet的行变量）。
• 遮罩效果：通过alpha = 0.4控制灰色遮罩的透明度，既突出最小值条形，又不覆盖原有颜色和纹理。
• 纹理兼容：如果使用ggpattern的纹理填充，只需将第一层的geom_bar替换为geom_bar_pattern，并设置pattern参数即可，遮罩层的逻辑不变。

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