相关疑难解决方法(0)

RcolorBrewer包中的 RdYIBu 调色板正是我所追求的。

到目前为止我的代码：

library(rasterVis)
ras1 <- raster(nrow=10,ncol=10) 
set.seed(1) 
ras1[] <- rchisq(df=10,n=10*10) 
ras2=ras1*(-1)/2 
s <- stack(ras1,ras2) 
Uniques <- cellStats(s,stat=unique) 
Uniques.max <- max(Uniques)
Uniques.min <- min(Uniques)
my.at <- round(seq(ceiling(Uniques.max), floor(Uniques.min), length.out= 10),0)
myColorkey <- list(at=my.at, labels=list(at=my.at)) 
levelplot(s, at=my.at, colorkey=myColorkey,par.settings=RdBuTheme())

如何设置 colorkey 中的值以匹配地图上的值，如上面的示例地图所示？请注意，颜色键中的颜色数量应与地图上显示的数量相同。

非常感谢您的帮助。您的建议将帮助我开发许多此类地图。

谢谢。