如何为ggplot的geom_text设置连续变量的颜色映射？

错误原因 #

你在全局ggplot()的aes中设置了colour=group（离散变量），这会让ggplot默认生成离散颜色刻度。当你在geom_text的aes中使用连续变量ii.c映射颜色时，连续值无法适配离散刻度，因此触发报错Error: Continuous value supplied to discrete scale。

解决方案 #

方案1：使用ggnewscale添加双颜色刻度（推荐，支持图例） #

通过ggnewscale包可以为图层添加独立的颜色刻度，同时保留geom_line的离散颜色和geom_text的连续颜色：

1. 先安装并加载包：

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

2. 修改绘图代码：

ggplot(data, aes(x=rpt, y=height.rel, colour=group)) +
  geom_line() +
  facet_wrap(vars(group)) +
  # 结束第一个颜色刻度，启动新的连续颜色刻度
  new_scale_colour() +
  geom_text(data = caption,
            aes(label = round(ii.c, 1), colour = ii.c),
            x = 110, y = 1) +
  # 设置符合需求的连续颜色渐变：<0渐变绿，>0渐变红，中点为0
  scale_colour_gradient2(low = "darkgreen", mid = "white", high = "darkred", midpoint = 0)

方案2：手动计算文本颜色（无需额外包，无图例） #

如果不需要连续颜色的图例，可以手动根据ii.c的值计算对应颜色：

1. 先处理caption数据，生成颜色列：

# 创建从绿到红的颜色映射函数
color_func <- colorRampPalette(c("darkgreen", "white", "darkred"))
# 将ii.c归一化到0-1范围（以0为参照中点）
norm_ii <- scales::rescale(caption$ii.c, to = c(0,1), from = range(c(caption$ii.c, 0)))
# 匹配对应颜色
caption$text_color <- color_func(100)[round(norm_ii*99)+1]

2. 绘图时直接使用预计算的颜色：

ggplot(data, aes(x=rpt, y=height.rel, colour=group)) +
  geom_line() +
  facet_wrap(vars(group)) +
  geom_text(data = caption,
            aes(label = round(ii.c, 1)),
            x = 110, y = 1,
            color = caption$text_color)  # 直接使用手动计算的颜色，不用aes映射

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