在ggplot中叠加同一变量的连续散点与离散平滑线报错求助

你遇到的错误是因为同一个ggplot画布中，colour美学只能绑定一种类型的比例尺（连续/离散）：

• 散点图用连续变量mpg映射颜色，ggplot自动启用连续色阶；
• 平滑线用离散分类变量mpg_cat映射颜色，离散值无法适配已存在的连续色阶，因此触发报错。

方法一：用ggnewscale包添加独立的颜色比例尺 #

这个包允许在同一张图中使用多组独立的颜色比例尺，完美适配“连续色点+离散色线”的需求：

1. 先安装并加载包：

install.packages("ggnewscale")
library(ggnewscale)

2. 叠加绘图的完整代码：

ggplot() +
  # 绘制散点图（连续色阶）
  geom_point(data = df,
             mapping = aes(x = disp, y = mpg, colour = mpg)) +
  scale_colour_distiller(palette = "Spectral", name = "mpg（连续）") +
  
  # 开启新的颜色比例尺
  new_scale_colour() +
  
  # 绘制分组平滑线（离散色阶）
  geom_smooth(data = df,
              mapping = aes(x = disp, y = mpg, colour = mpg_cat),
              method = "loess",
              se = FALSE) +
  scale_colour_brewer(palette = "Spectral", name = "mpg分组")

方法二：统一使用连续色阶，手动匹配分组颜色 #

如果不想额外安装包，可以将离散分组mpg_cat对应到连续变量mpg的区间特征值，让线条颜色和散点的连续色阶保持一致：

# 先给每个分组匹配对应的mpg代表值（比如区间中点）
df <- df %>%
  mutate(mpg_group_val = case_when(
    mpg_cat == "low" ~ 12,   # 10-14区间中点
    mpg_cat == "mid" ~ 16.5, # 14-19区间中点
    mpg_cat == "high" ~ 24   # >19区间近似平均值
  ))

# 叠加绘图，统一用连续色阶
ggplot() +
  geom_point(data = df, aes(x = disp, y = mpg, colour = mpg)) +
  geom_smooth(data = df,
              aes(x = disp, y = mpg, colour = mpg_group_val, group = mpg_cat),
              method = "loess", se = FALSE) +
  scale_colour_distiller(palette = "Spectral", name = "mpg")

这里通过group = mpg_cat确保按分组拟合线条，colour = mpg_group_val让线条颜色对应到连续色阶中对应区间的颜色。

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