如何在ggplot散点图中为点颜色与回归线添加独立图例？

Got it！要实现散点颜色和回归线颜色的两个独立图例，关键是让ggplot把点的颜色映射和回归线的颜色映射当成两个独立的美学组来处理。我给你两种实用方案：

方案1：用ggnewscale包（最清晰直观） #

这个包专门用来添加多个同类型的美学图例，完美解决同一种美学（比如color）需要多个图例的场景。

步骤示例（用mtcars数据集演示） #

# 先加载必要的包
library(ggplot2)
library(ggnewscale)

# 1. 绘制基础散点图，点的颜色映射到分组变量（比如气缸数cyl）
p <- ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point(aes(color = factor(cyl)), size = 3) +
  # 设置点的颜色图例：指定名称和对应颜色
  scale_color_manual(
    name = "气缸数",
    values = c("4" = "#1f77b4", "6" = "#2ca02c", "8" = "#ff7f0e")
  )

# 2. 开启新的颜色比例尺（这是关键！让后续的color映射生成新图例）
p <- p + new_scale_color()

# 3. 添加两条回归线，**必须把颜色放到aes()里**（否则不会生成图例）
# 第一条回归线：cyl=4的子集
p <- p + geom_smooth(
  data = subset(mtcars, cyl == 4),
  aes(color = "4缸拟合线"),
  method = "lm", se = FALSE, linewidth = 1.2
)
# 第二条回归线：cyl=6的子集
p <- p + geom_smooth(
  data = subset(mtcars, cyl == 6),
  aes(color = "6缸拟合线"),
  method = "lm", se = FALSE, linewidth = 1.2
)

# 4. 设置回归线的颜色图例：指定名称和对应颜色
p <- p + scale_color_manual(
  name = "回归线",
  values = c("4缸拟合线" = "#005580", "6缸拟合线" = "#1a753c")
)

# 5. 调整图例布局（可选）
p <- p + theme(
  legend.position = "right",
  legend.box = "vertical",
  legend.spacing.y = unit(0.5, "cm")
)

print(p)

关键说明 #

• 把回归线的颜色放到aes(color = "自定义标签")里：只有这样ggplot才会为回归线生成图例项，直接在geom_smooth()的color参数里写颜色不会生成图例。
• new_scale_color()：相当于告诉ggplot“接下来的color映射是全新的一组，不要和之前的混在一起”，这样就能生成两个独立的图例。

方案2：不用额外包（用不同美学属性区分） #

如果不想装新包，可以让点用color，回归线用linetype+color，然后调整图例让回归线只显示线条：

library(ggplot2)

p <- ggplot(mtcars, aes(x = wt, y = mpg)) +
  # 散点：颜色映射到cyl
  geom_point(aes(color = factor(cyl)), size = 3) +
  # 回归线：同时映射color和linetype到自定义标签
  geom_smooth(
    data = subset(mtcars, cyl == 4),
    aes(color = "4缸拟合线", linetype = "4缸拟合线"),
    method = "lm", se = FALSE, linewidth = 1.2
  ) +
  geom_smooth(
    data = subset(mtcars, cyl == 6),
    aes(color = "6缸拟合线", linetype = "6缸拟合线"),
    method = "lm", se = FALSE, linewidth = 1.2
  ) +
  # 设置颜色比例尺
  scale_color_manual(
    name = "分组",
    values = c("4" = "#1f77b4", "6" = "#2ca02c", "4缸拟合线" = "#005580", "6缸拟合线" = "#1a753c"),
    # 调整图例项的外观：点的图例只显示点，线的图例只显示线
    guide = guide_legend(
      override.aes = list(
        shape = c(16, 16, NA, NA),
        linetype = c(0, 0, 1, 1)
      )
    )
  ) +
  # 隐藏linetype的图例（因为我们用它只是辅助生成线的图例项）
  scale_linetype_manual(values = c("4缸拟合线" = 1, "6缸拟合线" = 1), guide = "none") +
  theme(legend.position = "right")

print(p)

这个方案的核心是用override.aes来强制修改图例项的显示：让点的分组只显示点（linetype=0），回归线的分组只显示线条（shape=NA）。

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