Присоединяйтесь к множеству уровней R Rastervis R

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)