如何仅在ggplot分面图的Group C面板中设置条形为红色？

要实现仅Group C分面的条形显示红色，有两种简洁的实现方式：

方法一：通过填充色映射实现 #

利用aes()的条件映射区分分组，再手动指定颜色，适合需要统一控制多组颜色的场景：

categories <- c("category 1", "category 2", "category 3")
groups <- c("A", "B", "C", "D")

df <- expand.grid(category = categories, group = groups)
df$value <- rnorm(12, 1, 0.5)

ggplot(df, aes(x = category,
               y = value,
               fill = ifelse(group == "C", "highlight", "normal"))) + 
  geom_bar(stat = "identity") + 
  facet_wrap(~ group) +
  # 自定义填充色：高亮组设为红色，其余用默认条形色
  scale_fill_manual(values = c("highlight" = "red", "normal" = "#F8766D")) +
  # 隐藏不需要的图例
  theme(legend.position = "none")

方法二：分数据集绘制条形 #

直接拆分数据集，分别绘制普通组和高亮组的条形，逻辑更直观：

categories <- c("category 1", "category 2", "category 3")
groups <- c("A", "B", "C", "D")

df <- expand.grid(category = categories, group = groups)
df$value <- rnorm(12, 1, 0.5)

ggplot(df, aes(x = category, y = value)) +
  # 绘制非C组的条形，使用默认颜色
  geom_bar(data = subset(df, group != "C"), stat = "identity") +
  # 单独绘制C组的条形，设置为红色
  geom_bar(data = subset(df, group == "C"), stat = "identity", fill = "red") +
  facet_wrap(~ group)

两种方法都能实现需求，方法二更适合只高亮单个分组的场景，无需处理图例；方法一则更灵活，若后续需要高亮多个分组，只需调整ifelse条件和颜色映射即可。

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