如何在ggplot2图例中添加数据框未包含的额外分组？

当然可以实现，核心思路是给需要额外显示的元素（比如你的整体回归线）指定一个虚拟分组标识，然后手动扩展颜色映射的配置，把这个虚拟分组纳入图例。针对你的需求，修改代码如下：

修改后的完整代码 #

# 加载包
library(MASS)
library(ggplot2)
library(dplyr)
# 设置随机种子
set.seed(1234)

# 创建随机数据框
sigma1 <- rbind(c(1, 0.8), c(0.8, 1))
mu <- c(4.5, 3.2)
dta1 <- as.data.frame(
  mvrnorm(n = 1000, mu = mu, Sigma = sigma1)) |>
  mutate(
    group = as.factor(sample(c(1), 1000, replace = TRUE))
)

sigma2 <- rbind(c(1, -0.5), c(-0.5, 1))
dta2 <- as.data.frame(
  mvrnorm(n = 1000, mu = mu, Sigma = sigma2)) |>
  mutate(
  group = as.factor(sample(c(2), 1000, replace = TRUE))
)

dta <- rbind(dta1, dta2)

# 绘制图形
ggplot(dta, aes(x = V1, y = V2)) +
  geom_point(aes(color = group)) +
  # 给整体回归线指定虚拟分组"All"
  geom_smooth(method = "lm", se = FALSE, aes(color = "All")) +
  geom_smooth(method = "lm", se = FALSE, aes(color = group)) +
  # 扩展颜色映射，包含虚拟分组的颜色和标签
  scale_color_manual(
    name = "分组",
    values = c("green", "orange", "blue"),
    labels = c("A", "B", "整体数据")
  )

关键修改点 #

• 给整体回归线的geom_smooth添加aes(color = "All")：把这条线标记为一个虚拟分组，让ggplot识别它需要进入图例。
• 扩展scale_color_manual的配置：在values和labels里新增虚拟分组对应的颜色和显示标签，顺序要和原始分组+虚拟分组的顺序对应（原始分组是1、2，对应"A"、"B"，然后是"All"对应"整体数据"）。

通用实现方法 #

不管原始数据有多少分组，只要遵循以下步骤就能添加任意不存在于数据中的图例条目：

1. 给需要额外显示的图形元素（线、点等）指定一个未在数据分组中出现过的标识（比如字符串、自定义因子），通过aes()绑定到颜色/形状等映射属性。
2. 在对应的scale_*_manual函数中，补充这个标识对应的视觉属性（颜色、形状等）和显示标签，确保所有需要在图例中出现的条目都被包含。

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