ggplot颜色梯度仅viridis生效 其他配色方案无效问题排查

调用krige()生成克里金插值栅格对象后，使用gplot()绑定ggplot2绘图时存在配色异常：

• 仅scale_color_viridis/scale_fill_viridis系列配色可以正常生效
• 其余scale_color_brewer、scale_fill_distiller、scale_fill_gradientn等配色方法均无法生效，图形始终展示黑到蓝的默认渐变
• 设置direction = -1也无法反转颜色梯度
• 提前将栅格转换为data.frame、tibble、sf格式均未解决异常
  可正常运行的参考代码如下：

gplot(
  data = KrigMap1, 
  mapping = aes(x = coords.x1, y = coords.x2, color = var1.pred)) +
  geom_point(size = 4, shape = 15) +
  scale_color_viridis(option = "C") +
  theme_classic() +
  xlab("X-coordinate") +
  ylab("Y-coordinate")

你调用的gplot()并非ggplot2原生的ggplot()函数，是raster/terra包提供的栅格对象专用绘图封装。该函数处理栅格类输入时，会隐式注入一个黑到蓝的连续渐变color/fill标度，且这个默认标度的加载优先级高于后续手动叠加的非viridis配色标度，会直接覆盖自定义配色规则。
viridis系列配色未被覆盖，是因为该系列标度的参数兼容逻辑和gplot内置默认标度不存在判定冲突，因此可以正常加载。
另外存在一个容易忽略的映射匹配问题：geom_tile/geom_raster这类栅格面图层的填充色由fill美学属性控制，color属性仅控制点、线、面要素的边界颜色，若属性映射错误也会出现配色不生效的问题。

按易用性优先级排序：

• 方案1：放弃使用gplot()，改用ggplot2原生ggplot()函数绘图。先将栅格对象转为普通数据框，再手动映射坐标与预测值字段，所有配色标度均可正常生效，示例代码：

library(ggplot2)
# 栅格转数据框，保留坐标列
krig_df <- as.data.frame(KrigMap1, xy = TRUE)

ggplot(krig_df, aes(x = x, y = y, fill = var1.pred)) +
  # 栅格面推荐使用geom_tile，比点图更符合栅格数据的展示逻辑
  geom_tile() +
  # 此处可替换为任意需要的连续型配色标度
  scale_fill_distiller(palette = "RdYlBu", direction = -1) +
  theme_classic() +
  xlab("X-coordinate") +
  ylab("Y-coordinate")

• 方案2：如果必须保留gplot()调用逻辑，手动添加配色标度时显式指定aesthetics参数，强制覆盖默认注入的标度，示例代码：

gplot(data = KrigMap1, 
      mapping = aes(x = coords.x1, y = coords.x2, color = var1.pred)) +
  geom_point(size = 4, shape = 15) +
  # 显式声明对应美学属性，覆盖默认标度
  scale_color_distiller(palette = "Spectral", direction = -1, aesthetics = "color") +
  theme_classic() +
  xlab("X-coordinate") +
  ylab("Y-coordinate")

若方案2仍有默认标度残留，可在添加自定义配色前先加一行空的scale_color_continuous()清除gplot默认加载的标度配置，再叠加自定义配色即可。

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