如何基于未用于facet_wrap的分组变量修改ggplot2分条文本背景色？

完全可以实现你要的效果，下面提供两种实用方法：

方法一：使用ggh4x包（简洁易维护） #

ggh4x是ggplot2的扩展包，专门增强分面相关功能，用它能轻松按非分面变量设置分条背景色：

1. 先建立分面变量group1和目标分组group2的对应关系；
2. 用facet_wrap2替代原生facet_wrap，通过strip_themed参数指定分条背景的颜色映射。

完整代码：

# 首次使用需安装包
# install.packages("ggh4x")
library(dplyr); library(ggplot2); library(ggh4x)

# 数据模拟
set.seed(1)
x <- runif(500)
y <- 4 * x^2 + rnorm(length(x), sd = 5)
group1 <- ifelse(x < 0.4, "G1", ifelse(x < 0.6, "G2", ifelse(x < 0.8, "G3", "G4")))
x <- x + runif(length(x), -0.5, 0.5)

df <- data.frame(x = x, y = y, group1 = group1) |> 
  mutate(group2 = ifelse(group1 %in% c("G1","G2"), "A", "B"))

# 建立group1到group2的映射表
strip_color_map <- distinct(df, group1, group2)

ggplot(df, aes(x = x, y = y)) +
  theme_bw() +
  geom_point(aes(colour = factor(group2)), show.legend = FALSE, size = 3) +
  scale_colour_manual(values = c("red","blue")) +
  # 用facet_wrap2实现分条背景色映射
  facet_wrap2(. ~ group1, strip = strip_themed(
    background_x = elem_list_rect(
      fill = scale_fill_manual(values = c("red","blue"))(strip_color_map$group2)$values
    )
  )) +
  theme(strip.text = element_text(face = "bold", size = 12, margin = margin(b = 1.2)))

方法二：手动修改gtable（无需额外包） #

如果不想安装新包，可以直接操作ggplot生成的gtable对象，手动给每个分条背景设置颜色：

library(dplyr); library(ggplot2); library(grid)

# 数据模拟同上
set.seed(1)
x <- runif(500)
y <- 4 * x^2 + rnorm(length(x), sd = 5)
group1 <- ifelse(x < 0.4, "G1", ifelse(x < 0.6, "G2", ifelse(x < 0.8, "G3", "G4")))
x <- x + runif(length(x), -0.5, 0.5)

df <- data.frame(x = x, y = y, group1 = group1) |> 
  mutate(group2 = ifelse(group1 %in% c("G1","G2"), "A", "B"))

# 绘制基础图形
p <- ggplot(df, aes(x = x, y = y)) +
  theme_bw() +
  geom_point(aes(colour = factor(group2)), show.legend = FALSE, size = 3) +
  scale_colour_manual(values = c("red","blue")) +
  facet_wrap(. ~ group1) +
  theme(strip.text = element_text(face = "bold", size = 12, margin = margin(b = 1.2)))

# 提取gtable对象
gt <- ggplotGrob(p)

# 建立group1到颜色的映射
color_map <- df |> 
  distinct(group1, group2) |> 
  mutate(fill_color = ifelse(group2 == "A", "red", "blue"))

# 找到所有分条背景的位置
strip_bg_indices <- which(grepl("strip.background", gt$layout$name))

# 逐个设置分条背景色
for(i in seq_along(strip_bg_indices)){
  # 提取当前分条对应的group1索引
  strip_num <- as.integer(substr(gt$layout$name[strip_bg_indices[i]], nchar(gt$layout$name[strip_bg_indices[i]]), nchar(gt$layout$name[strip_bg_indices[i]])))
  current_group <- levels(df$group1)[strip_num]
  # 匹配对应颜色并设置
  gt$grobs[[strip_bg_indices[i]]]$children[[1]]$gp$fill <- color_map$fill_color[color_map$group1 == current_group]
}

# 绘制修改后的图形
grid.draw(gt)

两种方法都能实现你要的效果：G1、G2的分条背景为红色，G3、G4为蓝色，和点的颜色完全对应。

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