基于分类修改ggplot2分面背景色及顺序的R实现方法

我在R中有如下数据框df：

df = structure(list(answers = c("A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "B", "B", "B", 
"B", "B", "B", "B"), Year = c(2019, 2019, 2019, 2020, 2020, 2020, 
2022, 2022, 2022, 2023, 2023, 2023, 2019, 2019, 2019, 2020, 2020, 
2020, 2022, 2022, 2022, 2023, 2023, 2023), Categories = c("Football", 
"Basket", "Volley", "Football", "Basket", "Volley", "Football", 
"Basket", "Volley", "Football", "Basket", "Volley", "Tennis", 
"Hockey", "Other", "Tennis", "Hockey", "Other", "Tennis", "Hockey", 
"Other", "Tennis", "Hockey", "Other"), Satisfaction = c(46.7, 
20.7, 36.5, 43.7, 21, 31.2, 49, 17.9, 34.2, 33.8, 30.1, 33.2, 
68.7, 68.7, 68.7, 69.7, 70.2, 70.2, 66.8, 72.7, 72.7, 76.1, 75.4, 
75.4)), row.names = c(NA, -24L), class = c("tbl_df", "tbl", "data.frame"
))

已使用ggplot2绘制分面折线图，代码如下：

P2 = ggplot(df, aes(x = Year, y = Satisfaction, color = factor(Categories), group = Categories)) +
  geom_line(aes(color = ifelse(answers == "Unfavorable", "darkred", "forestgreen"))) +
  geom_point(size = 2) +
  facet_grid(Categories ~ answers, scales = "free_y") +
  theme_minimal() +
  labs(
    x = "Year",
    y = "Satisfaction",
    color = "Categories") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        strip.background = element_rect(fill = "lightgrey"), # Add background color to facet labels
        strip.text = element_text(size = 12, face = "bold"), # Enhance facet label text
        panel.spacing = unit(1, "lines")) + # Increase spacing between facets
  geom_text(aes(label = paste(Satisfaction,"%") ), nudge_x = 0.1,color="black")+ 
  theme(legend.position = "none")
P2

需要实现两个需求：

• 按answers分类设置分面背景色：A组背景为绿色，B组背景为红色；
• 调整分面显示顺序：左侧为B组（红色背景）、右侧为A组（绿色背景）。

1. 调整分面显示顺序 #

将answers转换为有序因子，指定显示顺序为c("B", "A")即可改变分面排列顺序：

# 转换为有序因子，定义显示优先级
df$answers = factor(df$answers, levels = c("B", "A"), ordered = TRUE)

2. 设置分面背景色 #

利用geom_rect绘制背景矩形（无需额外安装包），步骤如下：

# 先构建背景数据：为每个answers组定义覆盖整个面板的矩形范围
bg_df = df %>%
  group_by(answers) %>%
  summarise(
    xmin = min(Year) - 0.5, # 扩展x轴范围，避免背景边缘截断
    xmax = max(Year) + 0.5,
    ymin = -Inf, # 覆盖整个y轴区域
    ymax = Inf,
    fill_color = ifelse(answers == "A", "#E8F5E9", "#FFEBEE") # 选择浅绿/浅红，避免遮挡数据
  )

# 重新绘制图表，先放背景层，再放数据层
P2 = ggplot() +
  # 背景矩形放在最底层
  geom_rect(data = bg_df, aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax), 
            fill = bg_df$fill_color, alpha = 0.3) +
  # 原有折线和点，统一按answers设置颜色
  geom_line(data = df, aes(x = Year, y = Satisfaction, group = Categories), 
            color = ifelse(df$answers == "A", "forestgreen", "darkred")) +
  geom_point(data = df, aes(x = Year, y = Satisfaction), size = 2, 
             color = ifelse(df$answers == "A", "forestgreen", "darkred")) +
  # 数据标签
  geom_text(data = df, aes(x = Year, y = Satisfaction, label = paste(Satisfaction,"%")), 
            nudge_x = 0.1, color="black") +
  # 分面设置，此时顺序已按B→A排列
  facet_grid(Categories ~ answers, scales = "free_y") +
  theme_minimal() +
  labs(
    x = "Year",
    y = "Satisfaction",
    color = "Categories") +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    strip.background = element_rect(fill = "lightgrey"),
    strip.text = element_text(size = 12, face = "bold"),
    panel.spacing = unit(1, "lines"),
    legend.position = "none"
  )

P2

说明：

• 选择浅色调背景并设置alpha=0.3，既能区分分组又不会遮挡折线和数据点；
• 扩展x轴范围是为了让背景完全覆盖面板区域，避免边缘留白；
• 有序因子的设置会让分面自动按B（左）→A（右）的顺序排列。

内容的提问来源于stack exchange，提问作者Homer Jay Simpson