在levelplot中的每种颜色的中间放置标记

Question

我试着把勾号和名字放在每种颜色的颜色键中间，但做不到。是否可以在levelplot中移动颜色中间的刻度？

> library (raster)
> ras <- list.files("/filepath/", pattern = "\\.tif$", full=TRUE)
> s <- stack(ras)
> levelplot(s, colorkey=list(at=seq(-3, 4, 1), labels=list(at=c(-3, -2, -1, 0, 1, 2,3, 4), labels=c("AA", "BB", "CC", "DD","EE", "FF", "GG")))

​

​

Answer 1

您可以尝试如下所示：

library (raster)
library(rasterVis)

ras <- lapply(1:3,function(i){
r <- raster()
values(r) <- sample(x = 1:10,size = ncell(r),replace = TRUE)
r
})
s <- stack(ras)
levelplot(s, colorkey=list(at=seq(-3, 4, 1), 
labels=list(at=c(-2.5, -1.5, -0.5,0.5, 1.5,2.5,3.5), 
labels=c("AA", "BB", "CC", "DD","EE", "FF", "GG"))))

​

​