R colorRampPalette

Question

我想问一下用彩色调色机和酿酒机把我的色标调成中心。我有一个问题，那就是0值不在中间。因为我的标度值是不对称的，所以我用的是红到蓝的颜色，所以我倒过来了。也许你们知道怎么解决它。非常感谢！

剧本：

brks <- seq(-15,45,5)
length(brks)
colorscale <- rev(colorRampPalette(brewer.pal(11, "RdBu"))(25))

windows()
image.plot(lon,lat,t_slice,
           col=colorscale,breaks=brks,lab.breaks=brks,
           xaxt="n", yaxt="n", ann=FALSE)
map(database="world", add=TRUE)
graphics.off()

​

​

我期待解决方案，如果颜色标度小于0，则为蓝色，如果大于0，则为红色。

Answer 1

由于您的间隔有13长度，一个13颜色值的色阶向量就足够了。无法测试整个设置，所以使用玩具图像。

library(RColorBrewer)

brks <- seq(-15,45,5)
colorscale <- c(rev(colorRampPalette(
                  c("white", brewer.pal(9, "Blues")))(which(brks == 0))),
  colorRampPalette(brewer.pal(9, "Reds"))(length(brks) - which(brks == 0)))

image(as.matrix(1:length(brks)), col=colorscale)

​

​