如何在ggplot2中自定义图例，避免分组迭代的重复项

数据与尝试代码 #

生成数据的代码 #

library(tidyverse)
library(RColorBrewer)

dat<-tibble(
  group =  c(rep("Group 1", 10), rep("Group 2", 10), rep("Group 3", 10)),
  iter = rep(c(rep(1, 5), rep(2, 5)), 3),
  group_iter = paste(group, iter, sep = "_"),
  x = 1:30,
  y = 11:40
)

数据结构预览：

# A tibble: 30 × 5
   group    iter group_iter     x     y
   <chr>   <dbl> <chr>      <int> <int>
 1 Group 1     1 Group 1_1      1    11
 2 Group 1     1 Group 1_1      2    12
 3 Group 1     1 Group 1_1      3    13
 4 Group 1     1 Group 1_1      4    14
 5 Group 1     1 Group 1_1      5    15
 6 Group 1     2 Group 1_2      6    16
 7 Group 1     2 Group 1_2      7    17
 8 Group 1     2 Group 1_2      8    18
 9 Group 1     2 Group 1_2      9    19
10 Group 1     2 Group 1_2     10    20
# ℹ 20 more rows
# ℹ Use `print(n = ...)` to see more rows

尝试的绘图代码 #

groups<-dat%>%distinct(group_iter, .keep_all = T)%>%pull(group)
uniqe_groups<-length(groups)
color_vals<-brewer.pal(uniqe_groups, name = "Set1")
color_vals1<-tibble(group = groups)%>%
  left_join(
    tibble(group = unique(dat$group), color = color_vals),
    by = "group"
  )%>%pull(color)

dat%>%ggplot(aes(x=x,y=y, color = group_iter, fill = group_iter)) + geom_line() +
  scale_color_manual("", labels = groups, values = color_vals1)

遇到的问题 #

• 需求：图例仅保留每个group的唯一项，不显示重复的Group值
• 异常情况：自定义图例时要么线条显示异常，要么触发报错：

error in `palette()`: ! insufficient values in manual scale

解决方案 #

方法1：核心逻辑优化（推荐） #

直接将颜色映射到group，用group_iter控制折线分组，这样同组的不同迭代折线颜色一致，图例自动只显示唯一Group条目：

# 给每个唯一Group分配颜色
unique_groups <- unique(dat$group)
color_vals <- brewer.pal(length(unique_groups), "Set1")
names(color_vals) <- unique_groups

# 绘图：color映射group保证同组同色，group映射group_iter区分不同迭代的折线
dat %>% 
  ggplot(aes(x = x, y = y, color = group, group = group_iter)) +
  geom_line() +
  scale_color_manual(name = "", values = color_vals)

方法2：保留group_iter映射时的图例自定义 #

如果必须基于group_iter做映射，可通过手动修改图例规则实现需求：

# 生成group_iter到对应group颜色的映射向量
unique_groups <- unique(dat$group)
color_vals <- brewer.pal(length(unique_groups), "Set1")

color_map <- dat %>% 
  distinct(group, group_iter) %>% 
  left_join(tibble(group = unique_groups, color = color_vals), by = "group") %>% 
  deframe()

# 绘图并自定义图例
dat %>% 
  ggplot(aes(x = x, y = y, color = group_iter)) +
  geom_line() +
  scale_color_manual(name = "", values = color_map) +
  # 自定义图例：只保留每个Group的一个条目
  guides(color = guide_legend(
    override.aes = list(color = color_vals),
    labels = unique_groups,
    keywidth = 1.5,
    keyheight = 1
  )) +
  # 指定每个Group的第一个group_iter作为图例条目，隐藏重复项
  scale_color_discrete(breaks = unique(dat$group_iter)[c(1,6,11)])

错误原因分析 #

你之前的代码报错核心是逻辑混乱：

1. 变量名拼写错误（uniqe_groups应为unique_groups），导致颜色向量生成逻辑出错
2. group_iter共有6个唯一值，但后续颜色映射时没有保证值数量匹配，触发"颜色值不足"的报错

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