如何在ggplot中添加lm拟合线并保留原有颜色？

问题根源是你直接手动给散点赋值颜色，绕过了ggplot的颜色映射系统，导致和默认调色板不匹配。以下是修正后的代码：

代码实现 #

library(ggplot2)

# 方案1：全局一条拟合线，固定颜色（推荐，避免干扰散点颜色）
graph <- ggplot(df, aes(x = Time_period, y = value_100, color = Time_period_factor)) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE, color = "black")

# 方案2：每个时间区间单独拟合线，使用对应散点颜色
# graph <- ggplot(df, aes(x = Time_period, y = value_100, color = Time_period_factor)) +
#   geom_point() +
#   geom_smooth(method = "lm", se = FALSE)

print(graph)

关键说明 #

1. 统一美学映射：在ggplot()的全局aes()中指定color = Time_period_factor，让散点继承默认的离散调色板，保证和你单独画散点时的颜色一致。
2. 拟合线颜色控制：
   • 如果只需要一条全局拟合线，给geom_smooth指定固定颜色（比如color = "black"），避免它使用颜色映射。
   • 如果需要每个时间区间的单独拟合线，去掉固定颜色设置，拟合线会自动使用对应区间的散点颜色。
3. 避免手动赋值颜色：不要用color = df$Time_period_factor这种方式，这会直接给每个点硬编码颜色，脱离ggplot的映射系统，导致调色板混乱。

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