如何在ggplot堆叠条形图中仅修改12月（dec）的堆叠颜色？

哈哈，这个坑我之前也踩过！你遇到的问题根源在于：ggplot的scale系列设置是全局覆盖的，你连续调用两次scale_fill_manual，第二个会直接替换掉第一个的所有配置，所以最后所有条形都只会用最后设置的c("red", "green")。

要实现“仅修改12月的堆叠颜色”，我们需要把「月份+变量」的组合作为填充的依据，而不是单独只映射variable。下面给你具体的解决方案：

第一步：合并数据集（更符合ggplot语法） #

首先建议把你的x1和x2合并成一个数据框，这样不用多次调用geom_bar，代码更简洁也更容易维护。我先构造一个示例数据，方便你对照：

library(ggplot2)
library(dplyr)

# 模拟你的x1（非12月数据）和x2（12月数据）
x1 <- data.frame(
  months = rep(c("jan", "feb", "mar"), each = 2),
  variable = rep(c("A", "B"), 3),
  values = sample(1:10, 6)
)
x2 <- data.frame(
  months = rep("dec", 2),
  variable = c("A", "B"),
  values = sample(1:10, 2)
)

# 合并成一个数据集
df <- bind_rows(x1, x2)

第二步：创建组合填充分组 #

我们需要生成一个新的变量，把months和variable组合起来，这样每个月份的每个变量都有唯一的标识，方便我们单独指定颜色：

df <- df %>%
  mutate(fill_group = paste(months, variable, sep = "_"))

第三步：手动指定颜色并绘图 #

现在我们可以针对每个fill_group设置颜色，非12月的用orange和blue，12月的用red和green，同时调整图例让它显示原来的variable名称：

ggplot(df, aes(x = months, y = values, fill = fill_group)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(
    # 指定每个组合对应的颜色
    values = c(
      "jan_A" = "orange", "jan_B" = "blue",
      "feb_A" = "orange", "feb_B" = "blue",
      "mar_A" = "orange", "mar_B" = "blue",
      "dec_A" = "red", "dec_B" = "green"
    ),
    # 把图例标签改回原来的variable名称
    labels = c(rep(c("A", "B"), 3), "A", "B"),
    name = "variable" # 图例标题
  )

更灵活的写法（适合多月份场景） #

如果你有很多月份，不想手动列出所有组合，可以用逻辑判断自动生成颜色向量：

# 获取所有唯一的fill_group
all_groups <- unique(df$fill_group)

# 自动生成颜色：包含dec_的分组用red/green，其他用orange/blue
color_vec <- ifelse(
  grepl("dec_", all_groups),
  ifelse(grepl("_A", all_groups), "red", "green"),
  ifelse(grepl("_A", all_groups), "orange", "blue")
)
# 给颜色向量命名，对应fill_group
names(color_vec) <- all_groups

ggplot(df, aes(x = months, y = values, fill = fill_group)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(
    values = color_vec,
    # 自动提取variable名称作为图例标签
    labels = gsub(".*_", "", all_groups),
    name = "variable"
  )

这样不管你有多少个月份，都能自动给12月设置特殊颜色，其他月份保持统一的配色～

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