如何在ggplot的geom_tile中强制显示连续图例（基于处理后的layer_data数据框）

问题出在你用I(fill)直接传入颜色值——这相当于告诉ggplot直接使用字面量颜色，不要把它当作可映射的变量，所以ggplot不会为它生成图例。要解决这个问题，我们需要把颜色转换成连续的数值变量，再通过这个变量重新映射fill，让ggplot识别出需要生成图例的映射关系。

核心思路 #

1. 把十六进制颜色转换为可量化的数值（比如绿色通道的强度，因为你的主要需求是绿色渐变图例）；
2. 区分不同的颜色组（绿色渐变、紫色、红色），分别处理映射；
3. 利用ggplot的scale系统生成对应图例，多组颜色可以用ggnewscale实现多个fill图例。

具体代码实现 #

首先加载必要的包：

library(ggplot2)
library(dplyr)
library(scales)
library(ggnewscale) # 用于添加多个fill图例

步骤1：给数据添加数值化的颜色变量

我们提取绿色通道的强度作为连续变量（绿色系颜色的G通道值更高，能很好反映渐变程度），同时标记颜色分组：

# 将十六进制颜色转换为RGB通道值
rgb_matrix <- col2rgb(data$fill)
data$green_strength <- rgb_matrix["green", ] / 255 # 归一化到0-1区间

# 标记颜色分组：绿色渐变、紫色、红色
data <- data %>%
  mutate(color_group = case_when(
    grepl("FF", fill) & rgb_matrix["green", ] > rgb_matrix["red", ] & rgb_matrix["green", ] > rgb_matrix["blue", ] ~ "green_gradient",
    fill %in% c("#A87FFF", "#9669FF") ~ "purple",
    fill %in% c("#FF6140", "#FF7F5E") ~ "red"
  ))

步骤2：绘制带图例的图形

如果只需要绿色渐变的图例：

# 提取排序后的绿色系颜色，用于匹配渐变
sorted_greens <- data$fill[data$color_group == "green_gradient"][order(data$green_strength[data$color_group == "green_gradient"])]

ggplot(data, aes(x, y)) +
  # 绿色渐变组：用数值变量映射fill
  geom_tile(data = subset(data, color_group == "green_gradient"), aes(fill = green_strength)) +
  # 紫色和红色组：直接使用固定颜色
  geom_tile(data = subset(data, color_group == "purple"), aes(fill = I(fill))) +
  geom_tile(data = subset(data, color_group == "red"), aes(fill = I(fill))) +
  # 设置绿色渐变的图例
  scale_fill_gradientn(
    name = "Green Intensity",
    colors = sorted_greens,
    limits = range(data$green_strength),
    guide = guide_colorbar(title.position = "top")
  ) +
  theme_minimal()

如果想要同时显示三个图例（绿色渐变+紫色+红色），可以用ggnewscale添加多个fill尺度：

ggplot(data, aes(x, y)) +
  # 第一组：绿色渐变
  geom_tile(data = subset(data, color_group == "green_gradient"), aes(fill = green_strength)) +
  scale_fill_gradientn(
    name = "Green Gradient",
    colors = sorted_greens,
    limits = range(data$green_strength)
  ) +
  # 切换新的fill尺度
  new_scale_fill() +
  # 第二组：紫色
  geom_tile(data = subset(data, color_group == "purple"), aes(fill = color_group)) +
  scale_fill_manual(
    name = "Purple",
    values = c("purple" = unique(data$fill[data$color_group == "purple"]))
  ) +
  # 再次切换新的fill尺度
  new_scale_fill() +
  # 第三组：红色
  geom_tile(data = subset(data, color_group == "red"), aes(fill = color_group)) +
  scale_fill_manual(
    name = "Red",
    values = c("red" = unique(data$fill[data$color_group == "red"]))
  ) +
  theme_minimal()

关键说明 #

• 永远不要用I()来做需要生成图例的颜色映射——它会跳过ggplot的变量映射逻辑；
• 颜色转数值的方式可以灵活调整，比如用HSL颜色空间的亮度值、或者RGB的平均值，只要能反映颜色的渐变趋势即可；
• ggnewscale是实现多fill图例的常用工具，适合同时存在连续和离散颜色组的场景。

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