R语言for循环绘制ggplot图时如何统一各图的年份配色

这个问题的本质是ggplot的自动标度适配机制：默认状态下，ggplot会根据当前图层传入的数据集，动态计算颜色标度的取值范围、匹配对应色板。当不同筛选后的子集年份覆盖不全时，同一年份在色板中的位置会向前偏移，甚至因为子集的类别数量变化，自动生成的色值本身出现差异，最终导致跨图配色不统一。

1. 循环外预定义固定的映射基准 #

不要让每个绘图子集动态计算配色逻辑，提前基于全量数据锁定所有需要参与映射的年份：

# 提取全量数据中所有唯一值，按数值排序锁定固定顺序
all_years <- sort(unique(gem$Year))
# 生成和年份一一对应的固定配色，可根据需求替换为自定义色值
# 不依赖额外包的写法：hcl.colors(length(all_years), "Set 2")
# 手动指定色值的写法：fixed_colors <- c("2019" = "#e41a1c", "2020" = "#377eb8")
fixed_colors <- setNames(
  RColorBrewer::brewer.pal(length(all_years), "Set2"),
  all_years
)

2. 绘图代码中显式固定颜色标度 #

在原有绘图逻辑的基础上，加入强制固定的颜色标度设置，覆盖ggplot的自动适配逻辑：

for (i in Object){
  data_temp <- gem %>%
    filter(description == i)
  
  p <- ggplot(data_temp, aes(Month, mean, colour = factor(Year))) +
    geom_point() +
    geom_line() +
    scale_x_continuous(breaks = seq(1, 12, by = 1)) +
    # 核心修正：固定颜色的映射范围与对应色值
    scale_color_manual(
      values = fixed_colors,
      limits = all_years # 强制标度覆盖所有全量年份，不受子集取值影响
    )
  
  # 直接把图像对象传给ggsave，不需要依赖last_plot()抓取
  ggsave(paste0("./graphs/",i,".png"), plot = p)  
}

补充说明 #

• 仅固定色值向量、不设置limits = all_years是不够的：ggplot依然会按照当前子集的年份顺序匹配色值，无法解决同一年份色值偏移的问题
• 如果Year字段是连续数值而非离散分类，可将scale_color_manual替换为连续色标，同样显式设置limits = range(all_years)实现全局统一映射，例如scale_color_viridis_c(limits = range(all_years))
• 原代码中print(last_plot())的逻辑可以直接简化，将ggplot对象显式传给ggsave，避免因为环境切换、绘图对象缓存问题导致导出的图片和预期不一致

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