如何为ggplot2的facet_wrap分组面板设置独立配色方案？

你的代码中aes(fill=Period)指定填充映射为Period（即P1/P2/P3），但scale_fill_manual的values参数是按Category（A/B/C/D/E）定义的键值对，两者映射对象不匹配，ggplot无法找到对应Period的颜色值，因此默认显示灰色。

根据你的需求，分两种场景给出实现方式：

场景1：同组面板内的Period使用一致调色板（不同Period有区分色） #

如果需要A、B面板内的P1/P2/P3使用同一套蓝色系，C面板使用橙色系，D、E面板使用绿色系，可以通过组合Category和Period生成唯一键构建颜色映射：

# 生成测试数据（保留原始代码）
n_ids <- 10 
ids <- paste0("ID_", 1:n_ids)
n_periods <- 3
periods <- rep(c("P1", "P2", "P3"), each = n_ids)
n_cats <- 5 
categories <- rep(LETTERS[1:n_cats], times = n_ids * n_periods)
values <- rnorm(n_ids * n_periods * n_cats, 100, 15)
df <- data.frame(ID = ids, 
                 Period = periods,
                 Category = categories,
                 Value = values)

# 定义各分组的调色板
palette_ab <- c("#1F78B4", "#6BAED6", "#9ECAE1")  # A/B面板的Period配色
palette_c <- c("#E69F00", "#FDB863", "#FFD92F")   # C面板的Period配色
palette_de <- c("#33A02C", "#66BD63", "#A1D99B")  # D/E面板的Period配色

# 构建完整的颜色映射：每个(Category, Period)组合对应唯一颜色
color_map <- c(
  # A组
  "A.P1" = palette_ab[1], "A.P2" = palette_ab[2], "A.P3" = palette_ab[3],
  # B组
  "B.P1" = palette_ab[1], "B.P2" = palette_ab[2], "B.P3" = palette_ab[3],
  # C组
  "C.P1" = palette_c[1], "C.P2" = palette_c[2], "C.P3" = palette_c[3],
  # D组
  "D.P1" = palette_de[1], "D.P2" = palette_de[2], "D.P3" = palette_de[3],
  # E组
  "E.P1" = palette_de[1], "E.P2" = palette_de[2], "E.P3" = palette_de[3]
)

# 修改fill映射为组合变量，应用颜色映射
ggplot(df, aes(x=Period, y=Value, fill=interaction(Category, Period))) +
  geom_boxplot() +
  geom_jitter(width=0.2, alpha=0.4, size=1) +
  facet_wrap(~Category, ncol=6, scales='free') +
  labs(title="Repetitive Behavior Score", x="Group", y="Value") +
  scale_fill_manual(values = color_map) +
  # 可选：统一图例标题
  guides(fill = guide_legend(title = "Period"))

场景2：同组面板整体使用单一颜色（忽略Period区分） #

如果需求是A、B面板整体显示同一种蓝色，C面板显示橙色，D、E面板显示绿色，只需将fill映射改为Category即可：

ggplot(df, aes(x=Period, y=Value, fill=Category)) +
  geom_boxplot() +
  geom_jitter(width=0.2, alpha=0.4, size=1) +
  facet_wrap(~Category, ncol=6, scales='free') +
  labs(title="Repetitive Behavior Score", x="Group", y="Value") +
  scale_fill_manual(values = c(
    "A" = "#1F78B4", "B" = "#1F78B4",
    "C" = "#E69F00",
    "D" = "#33A02C", "E" = "#33A02C"
  )) +
  # 可选：隐藏重复图例（每个面板已对应唯一Category）
  guides(fill = "none")

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