在ggplot2中如何为不同Geom分配不同调色板且保持尺度一致？

可以实现，借助ggnewscale包就能轻松搞定——它允许在同一张图里为同一类美学属性（比如color、fill）添加多组独立尺度，让不同Geom对象使用不同调色板，同时保证分类尺度的一致性（即同一分类在不同Geom中对应各自调色板的同位置颜色）。

步骤示例 #

1. 先安装并加载所需包：

install.packages("ggnewscale") # 首次使用需安装
library(ggplot2)
library(ggnewscale)

2. 绘制带不同调色板的散点与拟合线：

ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
  # 散点层：指定点的调色板
  geom_point(aes(color = Species), size = 2) +
  scale_color_viridis_d(name = "散点颜色", option = "plasma") + # 用viridis离散调色板
  # 开启新的颜色尺度，供后续图层使用
  new_scale_color() +
  # 拟合线层：指定线的调色板
  geom_smooth(aes(color = Species), method = "lm", se = FALSE, linewidth = 1) +
  scale_color_brewer(name = "拟合线颜色", palette = "Set1") # 用ColorBrewer的Set1调色板

扩展：同时处理fill属性 #

如果需要给拟合线的置信区间填充也用独立调色板，可使用new_scale_fill()：

ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
  geom_point(aes(color = Species), size = 2) +
  scale_color_viridis_d(name = "散点颜色", option = "plasma") +
  new_scale_color() +
  geom_smooth(aes(color = Species, fill = Species), method = "lm", se = TRUE, linewidth = 1) +
  scale_color_brewer(name = "拟合线颜色", palette = "Set1") +
  # 开启新的填充尺度
  new_scale_fill() +
  scale_fill_brewer(name = "置信区间填充", palette = "Pastel1")

这样设置后，散点、拟合线、置信区间填充各自使用独立的调色板，且所有图层的分类尺度完全对应（比如setosa在散点、线、填充中都对应各自调色板的第一个颜色）。

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