在ggplot2的facet_wrap/facet_grid中，如何将gap分面的a、b列设为红色填充？

你的问题出在直接在aes(fill = ...)里传入颜色字符串——ggplot会把这些字符串当作离散变量的水平值，而不是直接应用颜色。下面给你两种可行的解决方法：

方法1：添加分组变量后手动映射颜色 #

先给数据新增一个分组列，标记出需要变红的柱子，再通过scale_fill_manual绑定颜色：

library(tidyverse)

# 模拟你的数据结构（替换成你的真实数据）
df <- tibble(
  item = rep(c('gap', 'other', 'test'), each = 6),
  category = rep(c('a', 'b', 'c'), 6),
  amount = c(rnorm(6, -5), rnorm(6, 3), rnorm(6, 0))
)

# 新增颜色分组：gap分面下的a、b类标记为红色组，其余为蓝色组
df <- df %>%
  mutate(color_tag = case_when(
    item == 'gap' & category %in% c('a', 'b') ~ 'red_target',
    TRUE ~ 'default'
  ))

# 绘图
ggplot(df, aes(x = category, y = amount)) +
  geom_col(aes(fill = color_tag)) +
  facet_wrap(~item) # 换成facet_grid也适用
  scale_fill_manual(values = c('red_target' = 'red', 'default' = 'lightblue')) +
  guides(fill = 'none') # 不需要图例就加这行

方法2：直接在映射中定义颜色，用scale_fill_identity生效 #

如果不想修改原始数据，可以直接在aes里写颜色逻辑，再用scale_fill_identity()告诉ggplot直接使用字符串对应的颜色：

ggplot(df, aes(x = category, y = amount)) +
  geom_col(aes(fill = case_when(
    item == 'gap' & category %in% c('a', 'b') ~ 'red',
    TRUE ~ 'lightblue'
  ))) +
  facet_wrap(~item) # 同样支持facet_grid
  scale_fill_identity()

这两种方法都能精准控制gap分面下category为a、b的柱子颜色为红色，其余保持浅蓝。

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