ggplot的aesthetics设置出现非预期结果 如何为折线图分段设置不同颜色

问题原因 #

你代码的核心错误是混淆了ggplot2中美学映射参数和固定样式参数的定义位置：

• 写在aes()内部的参数，作用是将图形属性和数据集的变量做关联映射，不会直接将属性设置为你传入的固定值。你在aes()内写color = "blue"，本质是生成了一个仅包含"blue"这个值的离散分类变量，ggplot会自动调用默认调色板给这个分类分配颜色，和你写的字符内容无关；同理size = 2写在aes()内也不会直接设置线的粗细，会被识别为映射变量处理，导致样式完全不符合预期。
• 如果要给图形设置固定的颜色、大小等样式，需要把对应的参数放在aes()的外部，作为geom_path()的直接参数传入。

正确实现代码 #

写法1：直接分段设置固定样式 #

不需要图例的场景可以用这个写法，和你原来的代码逻辑对齐：

pop <- ggplot() + 
  # 原始数据段（1-153行）
  geom_path(data = df[1:153, ], aes(x = period, y = population), 
            size = 2, color = "blue") +
  # 外推数据段（153-158行，保留重叠点保证折线连续）
  geom_path(data = df[153:158, ], aes(x = period, y = population), 
            size = 2, color = "red")

写法2：新增分组变量映射（更规范，支持自动生成图例） #

如果需要给两段折线加图例区分，更推荐先给数据集新增类型标记列，再通过映射实现：

# 给数据新增分组标记
df$data_type <- ifelse(1:nrow(df) <= 153, "原始数据", "外推数据")

pop <- ggplot(df, aes(x = period, y = population)) +
  geom_path(aes(color = data_type), size = 2, lineend = "round") +
  # 手动指定分组对应颜色
  scale_color_manual(values = c("原始数据" = "blue", "外推数据" = "red"))

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