如何创建自定义多色顺序调色板供ggplot2 scale_fill_distiller使用

核心实现逻辑 #

• 你无需被scale_fill_distiller()内置的Brewer调色板数量限制，只需要按照红→橙→黄→绿→浅蓝的色相顺序设置6个核心颜色锚点，通过颜色插值函数即可生成任意数量的平滑过渡色阶，完全满足30+颜色的展示需求，避免色阶不足导致的细节丢失。
• 插值生成的调色板可以直接传入ggplot2的填色标尺函数，无需修改原有绘图的其他逻辑，适配你当前用geom_contour_fill()做的等高线填色+分面绘图流程。

可直接复用的代码 #

library(ggplot2)
library(metR) # 提供geom_contour_fill图层，需提前加载

# 生成自定义36色顺序调色板
custom_color_ramp <- colorRampPalette(
  colors = c(
    "#c41e3a", # 锚点1：深红色（对应最低数值区间）
    "#ff7f24", # 锚点2：橙色
    "#ffd700", # 锚点3：亮黄色
    "#90e060", # 锚点4：嫩绿色
    "#3cb371", # 锚点5：青绿色
    "#87ceeb"  # 锚点6：浅蓝色（对应最高数值区间）
  ),
  interpolate = "spline" # 样条插值保证颜色过渡平滑无断层
)
map_pal_36 <- custom_color_ramp(36) # 输出36个均匀过渡的色值

# 替换原代码中的填色标尺部分即可运行
ggplot(f, mapping = aes(x = lon, y = lat))+
  geom_contour_fill(aes(z = datos_variable, fill = stat(level)))+
  geom_contour(aes(z = datos_variable), color = "black", size = 0.2)+
  # 用自定义色板替换原有内置YlGnBu调色板
  scale_fill_gradientn(
    colors = map_pal_36,
    guide = guide_colorsteps(show.limits = TRUE) # 保持和原discretised标尺一致的阶梯型图例
  )+
  mi_mapa+
  coord_quickmap(xlim = range(f$lon), ylim = range(f$lat), expand = FALSE)+
  facet_wrap(~nombre_nivel, scales = "free", ncol = length(nivel)) +
  labs(x = "Longitud", y = "Latitud", fill = nombre_escala, title = titulo_grafico)

参数调整说明 #

• 颜色微调：如果对某一段色相的呈现效果不满意，直接替换colorRampPalette()中对应锚点的十六进制色值即可，不需要改动其他代码
• 色阶数量调整：如果需要更多/更少的颜色层级，修改custom_color_ramp()传入的数值即可，例如需要40个色阶就写custom_color_ramp(40)，插值过程会自动保证过渡平滑
• 标尺兼容：scale_fill_gradientn()生成的阶梯型填色效果和你之前用scale_fill_distiller()加super=ScaleDiscretised的效果完全一致，不会改变等高线填色的分块展示逻辑
• 若必须使用scale_fill_distiller()的palette参数传入自定义色板，可以提前将生成的色板注册到RColorBrewer的全局调色板列表中，但直接使用scale_fill_gradientn()是无需修改底层配置的最简实现方案

注意：当你的等高线分层数大于设置的色板颜色数时，ggplot2会自动在相邻色值间做插值补全，不会出现颜色跳变、细节丢失的问题，可以完美适配大跨度数值刻度的地图填色需求。

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