如何为ggplot绘制的分组箱线图单独设置每个面板的背景颜色？

我明白你的困扰——默认的panel.background确实只能统一设置所有面板的背景，要给每个分面单独上色需要一点小技巧。这里有两种靠谱的方法，完美适配你的facet_grid代码：

方法1：用ggh4x包（推荐，代码简洁易维护） #

ggh4x是专门解决ggplot进阶定制需求的扩展包，它允许你直接把分面变量映射到面板背景色上，不用手动计算位置。

操作步骤： #

1. 先安装并加载包：

install.packages("ggh4x")
library(ggh4x)

2. 修改你的绘图代码，替换面板背景设置并单独定义各分面的颜色：

# 先定义每个divide水平对应的背景色，根据你的实际分面水平调整键值对
bg_colors <- c("GroupA" = "#F6F8F9", "GroupB" = "#E5E8EB", "GroupC" = "#F0F2F5")

p <- ggplot(df, aes(x=Genotype, y=Length, fill=Treatment)) + 
  scale_fill_manual(values=c("#69b3a2", "#CF7737"))+ 
  geom_boxplot(width=2.5)+ 
  theme(text = element_text(size=20),
        panel.spacing.x=unit(0.4, "lines"), 
        axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank(),
        axis.text.y = element_text(angle=90, hjust=1,colour="black"),
        # 用ggh4x的element_rect映射分面变量到填充色
        panel.background = element_rect(aes(fill = divide), colour = "#E7ECF1")) + 
  labs(x = "Genotype", y = "Petal length (cm)")+ 
  facet_grid(~divide,scales = "free", space = "free") +
  # 单独设置面板填充色，避免和Treatment的fill映射冲突
  scale_fill_manual(aesthetics = "panel.fill", values = bg_colors)

p

如果你的divide有更多水平，只需要在bg_colors里添加对应的键值对即可。

方法2：手动用grid包添加背景（无需额外安装包） #

如果你不想引入新包，可以通过操作ggplot的底层gtable对象，给每个面板手动添加背景矩形：

操作步骤： #

1. 先绘制原始图并获取底层布局：

# 先绘制基础图，保留面板边框
p <- ggplot(df, aes(x=Genotype, y=Length, fill=Treatment)) + 
  scale_fill_manual(values=c("#69b3a2", "#CF7737"))+ 
  geom_boxplot(width=2.5)+ 
  theme(text = element_text(size=20),
        panel.spacing.x=unit(0.4, "lines"), 
        axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank(),
        axis.text.y = element_text(angle=90, hjust=1,colour="black")) + 
  labs(x = "Genotype", y = "Petal length (cm)")+ 
  facet_grid(~divide,scales = "free", space = "free") +
  theme(panel.background = element_rect(colour = "#E7ECF1"))

# 获取绘图的gtable对象
gt <- ggplotGrob(p)

# 定义各分面的背景色，顺序对应divide的因子水平
bg_colors <- c("#F6F8F9", "#E5E8EB")

# 遍历每个面板，替换背景
for (i in seq_along(bg_colors)) {
  # 找到对应面板的位置索引
  panel_idx <- which(gt$layout$name == paste0("panel-1-", i))
  # 获取面板对象并替换背景矩形
  panel <- gt$grobs[[panel_idx]]
  panel$children[[1]] <- rectGrob(gp = gpar(fill = bg_colors[i], col = "#E7ECF1"))
  gt$grobs[[panel_idx]] <- panel
}

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

注意：panel-1-i里的i对应divide因子水平的排序，如果你不确定顺序，可以先运行levels(df$divide)查看。

两种方法都能实现你要的每个面板单独背景色的效果，推荐第一种，代码更简洁，后续修改也更方便。

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