如何在R的ggplot2中为KL值分区间配置双调色板并显示完整图例？

我使用R的ggplot2绘制了散点图，代码如下：

library(ggplot2)
df_plot = data.frame(KL=runif(15,0,10),x=seq(0,1,length=15),y=seq(0,1,length=15))
ggplot() +
  geom_point(data = subset(df_plot, KL > 1), aes(x=x, y=y, col=KL),
             color = c(heat.colors(sum(df_plot$KL>1))), size =3) +
  geom_point(data = subset(df_plot, KL < 1), aes(x=x, y=y, col = KL), size = 3)

当前图表存在问题：图例仅展示KL<1对应的蓝色系颜色，KL>1的heat调色板颜色未出现在图例中。我需要实现的效果是：图例显示0到10的完整数值范围，其中[0,1]区间对应蓝色调色板，(1,10]区间对应heat调色板。

你之前的代码中，直接给geom_point指定color参数会覆盖aes(col=KL)的颜色映射关系，导致KL>1的部分无法生成对应的图例项。正确的做法是使用scale_color_gradientn自定义分段颜色映射，将蓝色调色板与heat调色板拼接，同时设置对应的数值断点。

修改后的代码如下：

library(ggplot2)
library(scales)

set.seed(123) # 设置随机种子，确保结果可复现
df_plot = data.frame(KL=runif(15,0,10),x=seq(0,1,length=15),y=seq(0,1,length=15))

# 生成对应区间的调色板
blue_pal = viridis_pal(option = "B")(10) # 蓝色系调色板，可替换为其他蓝色系（如blues9）
heat_pal = heat.colors(20) # 暖色调调色板

# 拼接两个调色板
combined_pal = c(blue_pal, heat_pal)

# 设置颜色对应的数值断点：0-1区间取11个断点，1-10区间取20个断点（去掉重复的1）
breaks = c(seq(0, 1, length.out = 11), seq(1, 10, length.out = 21)[-1])

ggplot(df_plot, aes(x=x, y=y, color=KL)) +
  geom_point(size = 3) +
  scale_color_gradientn(colors = combined_pal, breaks = breaks, limits = c(0,10)) +
  theme_minimal()

关键说明 #

1. 不再拆分数据集绘制，直接使用完整数据集将KL映射到颜色，保证图例能完整生成。
2. 通过拼接调色板并设置断点，实现0-1区间用蓝色系、1-10区间用暖色调的颜色映射。
3. limits = c(0,10)确保图例显示0到10的完整数值范围。

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