连接多个R Rastervis级别图

Question

我有两个光栅堆栈，每个都有一个共同的图例，我想把它们放在一个单独的绘图上，在堆栈之间留出一个空格。我想要的光栅图像是相同的大小在每个块和跨块。有没有一种简单的方法可以使用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)

​

​