R lattice绘制3D线框图：设置非对称色阶中点为0

我完全理解你的需求——要在保留z轴原有范围（-0.6到0.2）的前提下，让蓝-白-红渐变的白色精准对应偏差值0：小于0的区域显示蓝色渐变，大于0的区域显示红色渐变。你当前的问题在于，do.breaks是对整个z轴范围做等距分割，导致颜色中点落在(-0.6+0.2)/2 = -0.2的位置，而非0。下面是针对性的解决方案：

核心思路 #

因为你的z轴范围不对称（-0.6到0的跨度是0.6，0到0.2的跨度是0.2，比例为3:1），我们需要按跨度比例分配颜色数量和断点，让0正好成为颜色渐变的分界点：

• 从-0.6到0：分配75%的颜色，做蓝色到白色的渐变
• 从0到0.2：分配剩下25%的颜色，做白色到红色的渐变

具体实现代码 #

1. 按比例创建自定义渐变配色 #

# 计算颜色分配比例：-0.6到0的跨度占总跨度的75%
n_blue_white <- round(100 * (0 - (-0.6)) / (0.2 - (-0.6))) # 得到75个颜色
n_white_red <- 100 - n_blue_white # 得到25个颜色

# 生成蓝→白的渐变（75色）
blue_white <- colorRampPalette(c("blue", "white"))(n_blue_white)
# 生成白→红的渐变（去掉重复的白色，避免颜色重叠）
white_red <- colorRampPalette(c("white", "red"))(n_white_red + 1)[-1]

# 合并两组颜色
bwr_colors <- c(blue_white, white_red)

2. 同步设置对应颜色断点 #

我们需要让断点和颜色一一对应，确保0正好是颜色的分界点：

# 生成-0.6到0的断点（75个颜色对应76个断点）
breaks_blue_white <- seq(-0.6, 0, length.out = n_blue_white + 1)
# 生成0到0.2的断点（去掉重复的0，避免断点重复）
breaks_white_red <- seq(0, 0.2, length.out = n_white_red + 1)[-1]

# 合并所有断点
at_breaks <- c(breaks_blue_white, breaks_white_red)

3. 更新Wireframe绘图代码 #

把自定义的配色和断点参数替换到你的原始代码中：

gca_plot <- wireframe(dev ~ col*row, data=gca,
                      xlab = "col", xlim = c(1, 24),
                      ylab = "row", ylim = c(9, -6),
                      zlim=c(-0.6, 0.2),
                      main = "GCA",
                      drape = TRUE,
                      colorkey = TRUE,
                      at=at_breaks,  # 使用自定义断点
                      scales = list(arrows=FALSE,cex=.5, tick.number = 10, z = list(arrows=F), distance =c(1.5, 1.5, 1.5)),
                      col.regions = bwr_colors,  # 使用自定义配色
                      screen = list(z = 30, x = -60))

效果说明 #

修改后，颜色渐变的白色中点会精准对应偏差值0，同时z轴范围保持原有的-0.6到0.2，不会浪费空间，色条（colorkey）也会同步显示正确的颜色映射关系。

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