R ggplot2如何为选定facet_wrap分面设置面板背景色

你之前用geom_rect出现颜色发虚、大数据量效果差的根本原因是：传入的数据集保留了所有原始行，同一个分面的背景矩形会被重复绘制上百甚至上百万次，只能靠极低的alpha值压深，自然效果差。

优先推荐：基于panel.background的无额外图层方案 #

这是最贴合需求的实现方式，完全通过主题配置实现分面背景着色，没有额外几何层，不存在叠色、渲染卡顿问题，需要用到ggh4x扩展包的分面功能——它突破了原生ggplot2主题无法映射分面的限制，支持为每个分面单独指定主题元素：

library(ggplot2)
library(ggh4x)
library(dplyr)

# 按分面的取值匹配对应背景配置，需要高亮的分面自定义填充色即可
bg_theme_list <- list(
  `3` = theme(panel.background = element_rect(fill = "#f8d7da", color = NA)),
  `4` = theme(panel.background = element_rect(fill = "white", color = NA)),
  `5` = theme(panel.background = element_rect(fill = "white", color = NA))
)

mtcars %>%
  ggplot(aes(mpg, cyl)) +
  # 用支持分面独立主题的facet_wrap2替代原生分面函数
  facet_wrap2(~gear, themes = bg_theme_list) +
  geom_point()

这个方案的填充色、边框完全在element_rect里配置，和常规改全局panel.background的逻辑完全一致，不管数据量多大渲染速度都不受影响。

原生ggplot2无依赖方案 #

如果不想安装扩展包，只要修正geom_rect的数据源即可，不需要设置极低透明度：

library(ggplot2)
library(dplyr)

mtcars %>%
  ggplot(aes(mpg, cyl)) +
  facet_wrap(~gear) +
  # 背景层放在最底层，数据源只保留分面唯一值，每个目标分面仅绘制1次矩形
  geom_rect(
    data = . %>% distinct(gear) %>% filter(gear == 3),
    aes(xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf),
    fill = "#f8d7da", alpha = 1, inherit.aes = FALSE
  ) +
  geom_point()

注意geom_rect必须放在所有数据图层（比如geom_point）的前面，否则会盖住数据内容。

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