ggarrange 拉伸 ggplot 对象以占据白色 space

Question

我正在尝试使用 ggarrange 绘制 8 ggplot objects 以便在每一行中绘制 4 ggplot 对象。代码工作正常，但现在我希望以绘图占据标签和绘图之间的额外白色 space 的方式绘制绘图，例如绘图占据白色 space在标签 A 和该图之间，其余图以此类推。基本上，我想拉伸图，因此使用了网格中可用的所有 space。我该怎么做？

gg.arrange = ggarrange(ggplot1,
                                  ggplot2,
                                  ggplot3,
                                  ggplot4,
                                  ggplot5,
                                  ggplot6,
                                  ggplot7,
                                  ggplot8,
                                  ncol = 4,
                                  nrow = 2,
                                  labels = c("A", "B", "C", "D", "E", "F", "G", "H"),
                                  common.legend = TRUE,
                                  legend = "bottom")

ggplot 对象之一的代码：

ggplot1 = ggplot(shapefile_sf_object) +
  geom_sf(aes(fill = Data), show.legend = T) + 
  coord_sf() +
  geom_sf(data = DEM_sf, aes(size = DEM), shape = 1, show.legend = T) +
  theme(axis.text.x = element_text(angle = 90)) +
  scale_fill_distiller(palette = "Spectral") +
  labs(title = "February", fill = "RMSE")

Answer 1

我找到了另一种减少边距的方法，即最小化绘图标签和绘图本身之间的 space。我所做的是，一旦 ggarrange 在 RStudio 的绘图部分显示绘图。

我点击了 Zoom 按钮，然后图表显示在弹出窗口 window 中，显示标签和图表之间的 space 缩小了。我相信，这可以通过调整弹出窗口的大小来进一步修改 window.

我使用了这种方法，因为我在 ggarrange 中有很多绘图，其中一个绘图包含一个具有数千像素的光栅，所以每次我尝试使用代码进行不同的操作时，ggarrange 都会花费很多时间, 从而降低了我的计算机的性能。

ggarrange 拉伸 ggplot 对象以占据白色 space

ggarrange stretch ggplot object to occupy white space

r

ggplot2

ggpubr