在ggplot2中为饼图的单个分面设置背景色

需要创建包含三个分面的饼图，其中cat="All"的分面需要添加背景色突出显示，但使用geom_rect()在coord_polar()后无法正常显示背景。以下是两种可行的解决方案：

方案一：调整矩形坐标适配极坐标 #

问题根源是coord_polar()转换坐标后，普通矩形会被转为扇形，无法覆盖整个分面。通过调整矩形的坐标范围，让其在极坐标下转为完整圆形背景：

完整代码 #

library(tidyverse)

# 你的数据
a <- structure(list(cat = c("All", "All", "Host", "Host", "Refugee", 
"Refugee"), action = c("No", "Yes", "No", "Yes", "No", "Yes"), 
    pct = c(34, 66, 24, 76, 38, 62)), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -6L), groups = structure(list(
    cat = c("All", "Host", "Refugee"), .rows = structure(list(
        1:2, 3:4, 5:6), ptype = integer(0), class = c("vctrs_list_of", 
    "vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -3L), .drop = TRUE))

# 绘图代码
a %>% 
  ggplot(aes("", pct, fill = action)) +
  # 为All分面添加圆形背景：极坐标下x范围0-2、y范围0-1的矩形会转为完整圆形
  annotate("rect", xmin = 0, xmax = 2, ymin = 0, ymax = 1, 
           fill = 'red', alpha = 0.2, 
           data = data.frame(cat = "All"), inherit.aes = FALSE) +
  geom_bar(stat = "identity", position = "fill") +
  coord_polar(theta = "y", start = 0) +
  facet_wrap(~cat) +
  theme_solid() +
  guides(fill = "none") +
  # 调整x轴范围确保背景覆盖整个饼图
  xlim(c(0, 2))

代码说明 #

• 用annotate("rect")替代geom_rect()，通过data参数指定仅在cat="All"分面显示背景。
• 设置xmin=0, xmax=2和ymin=0, ymax=1，在极坐标转换后，这个矩形会变成覆盖整个饼图的圆形背景。
• 添加xlim(c(0,2))确保背景矩形完全展示。

方案二：用ggh4x包设置分面专属主题 #

如果需要更灵活的分面样式控制，可以使用ggh4x包直接为指定分面设置面板背景：

完整代码 #

library(tidyverse)
library(ggh4x)

a %>% 
  ggplot(aes("", pct, fill = action)) +
  geom_bar(stat = "identity", position = "fill") +
  coord_polar(theta = "y", start = 0) +
  facet_wrap(~cat) +
  theme_solid() +
  guides(fill = "none") +
  # 为不同分面设置单独背景
  facetted_themes(
    list(
      cat == "All" ~ theme(panel.background = element_rect(fill = "red", alpha = 0.2)),
      .default ~ theme(panel.background = element_rect(fill = "white"))
    )
  )

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