如何在ggplot2箱线图中同时手动设置箱体与背景填充色？

核心思路 #

ggplot2中同一美学属性（如fill）只能绑定一个颜色尺度，重复调用scale_fill_manual()会覆盖之前的设置。要实现箱体和背景独立着色并保留分组图例，需使用独立的fill尺度，推荐用ggnewscale包实现多fill尺度支持。

完整代码实现 #

1. 安装并加载依赖包

install.packages("ggnewscale")
library(ggplot2)
library(ggnewscale)

2. 绘制目标图表

# 基于你的模拟数据绘制
ggplot(Final_Data_Frame, aes(x = Group_3, y = Response_Variable)) +
  # 第一步：绘制箱线图，绑定Group_1到fill属性
  geom_boxplot(aes(fill = Group_1)) +
  # 设置箱线图的颜色映射，指定图例名称
  scale_fill_manual(
    name = "Group 1",
    values = setNames(Group_1_Colors$Group_1_Color, Group_1_Colors$Group_1)
  ) +
  # 关键：开启新的fill尺度，用于背景矩形
  new_scale_fill() +
  # 第二步：绘制背景矩形，使用Group_2_Colors数据集避免重复绘制
  geom_rect(
    data = Group_2_Colors,
    aes(
      xmin = Minimum_Horizontal_Cutoff_Value,
      xmax = Maximum_Horizontal_Cutoff_Value,
      ymin = -Inf,
      ymax = Inf,
      fill = Group_2
    ),
    alpha = 0.1  # 调整透明度避免遮挡箱线图
  ) +
  # 设置背景矩形的颜色映射，指定图例名称
  scale_fill_manual(
    name = "Group 2",
    values = setNames(Group_2_Colors$Group_2_Color, Group_2_Colors$Group_2)
  ) +
  # 调整图例排列与顺序
  theme(
    legend.box = "vertical",
    legend.position = "right"
  ) +
  guides(
    fill = guide_legend(order = 1),  # Group 1图例在前
    fill = guide_legend(order = 2)   # Group 2图例在后
  )

关键细节说明 #

• 避免重复绘制矩形：绘制背景时直接使用Group_2_Colors数据集，而非Final_Data_Frame，确保每个Group_2类别只生成一个背景矩形，不会因数据重复导致颜色叠加。
• setNames()的作用：确保颜色值与分组名称一一对应，避免ggplot自动匹配时出现错误。
• 图例分组：通过new_scale_fill()生成的独立fill尺度会自动生成单独的图例，配合theme()和guides()可调整图例的排列顺序与显示样式。

替代方案（无需额外包，无背景图例） #

如果不需要背景区域的图例，可以直接跳过ggnewscale，为geom_rect手动指定颜色并关闭美学继承：

ggplot(Final_Data_Frame, aes(x = Group_3, y = Response_Variable, fill = Group_1)) +
  # 先绘制背景矩形，避免被箱线图遮挡
  geom_rect(
    data = Group_2_Colors,
    aes(
      xmin = Minimum_Horizontal_Cutoff_Value,
      xmax = Maximum_Horizontal_Cutoff_Value,
      ymin = -Inf,
      ymax = Inf
    ),
    fill = Group_2_Colors$Group_2_Color,
    alpha = 0.1,
    inherit.aes = FALSE  # 不继承主图层的fill映射
  ) +
  geom_boxplot() +
  scale_fill_manual(values = Group_1_Colors$Group_1_Color)

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