1

我正在使用 awesomerasterVis来创建一个具有相同范围（即相同空间覆盖）但显示不同特征（即每个都有自己的图例）的地图的面板。

这是到目前为止的样子：

library(raster)
library(rasterVis)
library(RColorBrewer)
library(gridExtra)

# make-up data
r <- raster(system.file("external/test.grd", package="raster"))
s <- stack(r, r*2, r*3, r*4, r*5)
names(s) <- paste0("Field ",seq(1,5))

# pre-allocate list
l <- vector("list", length=nlayers(s))

# define theme for plots
my.theme <- rasterTheme(region=brewer.pal(11,'RdYlGn'))

# loop over stack layers to fill list
for (n in (1:nlayers(s))){
  
  l[[n]] <- levelplot(s[[n]], margin=F, main=names(s[[n]]), par.settings=my.theme)
  
}

# plot combined maps
grid.arrange(l[[1]], l[[2]], l[[3]], l[[4]], l[[5]], ncol=3)

在此处输入图像描述

请注意，地图的默认定位是：

a b c
d e

但是，我希望对定位进行更好的控制。具体来说，我想将底部的两个面“居中”，以便在绘图的两侧更均匀地分布空隙空间。

换句话说，我正在寻找的位置看起来像：

a b c
 d e

我怎样才能做到这一点？我查找了 ( grid.arrange) 的文档，但找不到任何可以解决我的问题的选项。

提前感谢您的任何提示。

4

2 回答 2

1

这是一种受此答案cowplot::plot_grid启发的方法

library(cowplot)
top <- plot_grid(l[[1]], l[[2]], l[[3]],
                 ncol=3)
bottom <- plot_grid(NULL, l[[4]], NULL,  l[[5]], NULL,
                    ncol=6, rel_widths=c(0.12,0.34,0.12,0.34,0.06))
plot_grid(top, bottom,
          ncol=1, rel_heights=c(1,1))

在此处输入图像描述

您可以修改rel_widths底部plot_grid调用中的 以获得您喜欢的。

于 2020-07-04T15:55:40.980 回答
1

您可以提供 6 列的布局并NA用于空白，

library(gridExtra)

p <- ggplot()

grid.arrange(grobs = list(p,p,p,p,p), 
             layout_matrix = rbind(c(1,1,2,2,3,3), c(NA,4,4,5,5,NA)))
于 2020-07-04T20:54:04.100 回答