加入多个R Rastervis水平图

Question

我有两个rasterstack，每个都有一个共同的图例，我想把它放在一个绘图之间有空格的单个绘图上。我希望每个块和跨块的光栅图像大小相同。有没有一种简单的方法可以使用Rastervis::levelplot来完成此操作。我认为最好的方法是在grid.arrange对象中添加一个图例，就像在这个MWE

中一样

library(raster)
library(rasterVis)
s <- stack(
raster( matrix(runif(9),3,3)),
raster( matrix(runif(9),3,3)) )

gridExtra::grid.arrange(
levelplot(s, colorkey=FALSE, at=seq(0,1,length.out=11)),
levelplot(s, at=seq(0,1,length.out=11)),
ncol=2)

更简单的解决方案是在单个leveplot调用中执行此操作

Answer 1

我认为您正在寻找这样的事情：

levObj <- levelplot(s)
comb_levObj <- c(levObj, levObj, layout = c(4, 1), merge.legends = F)
print(comb_levObj)

但是，更简单的解决方案是：

s <- stack(s,s)
levelplot(s)