如何用ggplot2按非折线分组变量group2为折线着色并生成对应图例

需求说明：原代码基于group1为4条折线分配不同颜色，现在需要改为按group2着色（同group2的折线颜色一致），同时保持4条折线独立显示，图例与group2对应。

修改后的代码 #

library(ggplot2)
set.seed(2023)
N <- 10
x <- seq(N)
d <- rbind(
  data.frame(
    x = x,
    y = 1*x + 1,
    group1 = "1",
    group2 = 1
  ),
  data.frame(
    x = x,
    y = 1*x + 2,
    group1 = "2",
    group2 = 1
  ),
  data.frame(
    x = x,
    y = 2*x + 1,
    group1 = "3",
    group2 = 2
  ),
  data.frame(
    x = x,
    y = 2*x + 2,
    group1 = "4",
    group2 = 2
  )
)

# 核心修改：显式指定group=group1保证折线独立，颜色映射到group2
ggplot(d, aes(x = x, y = y, group = group1, col = factor(group2))) +
  geom_line() +
  scale_color_discrete(name = "Group 2") # 可选：自定义图例标题

关键改动说明 #

• group = group1：显式告诉ggplot按group1分组绘制折线，确保4条线各自独立，不会因为颜色相同而合并。
• col = factor(group2)：将group2转为因子类型（避免数值型变量被当作连续色阶处理），让同属一个group2的折线使用相同颜色。
• scale_color_discrete：可选配置，用于修改图例的标题，让图例更贴合需求。

运行后效果：group2=1的两条折线颜色一致，group2=2的两条折线颜色一致，四条折线完整独立显示，图例仅展示group2的两个类别。

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