绘制具有固定尺寸和布局的多个国家地图

Question

我试图将AA系列地图（NZ，澳大利亚和阿根廷）绘制在一个网格中，其中某些部分是空的。我正在使用ggplot创建单个地图，然后拼布将网格播种。

我希望结果是一个3x3网格，在顶行上有3x Nz地图，第二行上的2倍AUS +一个空图，而第三行上的1x Argentina + 2x空图。

我的问题是这些地块没有保持3x3网格，并且国家的大小非常不同。一个示例：

library(tidyverse)
library(sf)
library(rnaturalearth)
library(patchwork)


# basic country maps
nz <- ne_countries(country = 'new zealand', type = 'countries', returnclass = "sf")
aus <- ne_countries(country = 'australia', type = 'countries', returnclass = "sf")
arge <- ne_countries(country = 'argentina', type ='countries', returnclass = "sf")

# plot nz
p1 <- ggplot() + 
  geom_sf(data = nz) +
  theme_void()

# plot aus
p2 <- ggplot() + 
  geom_sf(data = aus) +
  theme_void()

# plot arg
p3 <- ggplot() + 
  geom_sf(data = arge) +
  theme_void()


# combine plots
p1 + p1 + plot_spacer() /
  p2 + plot_spacer() + p2 /
  plot_spacer() + plot_spacer() + p3

，而所需的输出将是这样的（与所有相似大小的地图）：

任何指针都将不胜感激！

Answer 1

当我必须导出地图时，这是我经常使用的黑客攻击。基本想法是不要直接绘制或导出地图，而是首先通过patchwork :: inset_element将其添加到空的背景图中。

对于第一个图，我从背景图中删除了them_void，这表明所有子图实际上都具有相同大小的独立于地图的大小：

library(tidyverse)
library(sf)
library(rnaturalearth)
library(patchwork)

plist <- dplyr::lst(p1, p2, p3)

plist <- lapply(plist, function(x) {
  ggplot() +
    geom_blank() +
    #theme_void() +
    inset_element(x, left = 0, right = 1, top = 1, bottom = 0)
})

# combine plots
(plist$p1 + plist$p1 + plist$p1) /
  (plist$p2 + plot_spacer() + plist$p2) /
  (plot_spacer() + plot_spacer() + plist$p3)

​

plist <- dplyr::lst(p1, p2, p3)

plist <- lapply(plist, function(x) {
  ggplot() +
    geom_blank() +
    theme_void() +
    inset_element(x, left = 0, right = 1, top = 1, bottom = 0)
})

# combine plots
(plist$p1 + plist$p1 + plist$p1) /
  (plist$p2 + plot_spacer() + plist$p2) /
  (plot_spacer() + plot_spacer() + plist$p3)

​src =“ https://i.sstatic.net/wwiif.png” alt =“”>