在ggplot分面图表中为全局重复数据添加正确图例及颜色

问题描述 #

需要在ggplot的每个分面中重复显示特定分组（C组）的数据，同时为其添加正确的图例项与颜色。尝试通过全局重复数据、aes()指定颜色并设置scale_color_manual()后，出现C组点颜色错误且未显示在图例中的问题；不设置scale_color_manual()时，图例显示C组但颜色不符合预期，拆分数据框也无法解决。

错误原因分析 #

1. 绘制C组数据时，使用select(-group)移除了分组列，且在aes(color="red")中直接指定颜色字符串，导致颜色映射未关联到分组变量group，无法与scale_color_manual()的breaks匹配。
2. 颜色映射逻辑错误：aes()内的参数是映射变量，而非直接的颜色值，直接写"red"会被当作一个分类值，而非颜色指令。

修正后的代码 #

library(ggplot2)
library(dplyr)

example <- data.frame(group=c("A","A","A","B","B","B","C","C","C"),
           time=c(1,2,3,1,2,3,1,2,3),
           value=c(5,6,7,9,10,11,2,2,3))
example$group <- factor(example$group, levels=c("A","B","C"))

ggplot(data=example[example$group!="C",], aes(x=time, y=value)) +
  # 绘制A、B组数据，颜色映射到group
  geom_point(aes(color=group)) +
  # 绘制C组数据，保留group列，颜色映射到group（即"C"）
  geom_point(data=example[example$group=="C",], aes(color=group)) +
  facet_grid(~group) +
  # 手动指定每个分组对应的颜色，breaks与分组变量匹配
  scale_color_manual(breaks=c("A","B","C"),
                     values=c("purple","green","red"))

关键改动说明 #

• 保留C组数据的group列，在geom_point中通过aes(color=group)将颜色映射到分组变量，确保与scale_color_manual()的breaks对应。
• 移除了错误的select(-group)和aes(color="red")写法，让颜色映射遵循ggplot的变量映射逻辑。
• 调整后，每个分面（A和B）都会显示C组的点，图例包含A、B、C三个项，且颜色与values中指定的一致。

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