将多图 ggplots 与拼凑和单个图例对齐

Posted 2023-02-16

【中文标题】将多图 ggplots 与拼凑和单个图例对齐

【英文标题】：Align multi-figure ggplots with patchwork and single legend

【发布时间】：2021-10-17 15:18:47

【问题描述】：

我正在使用拼凑在 R 中创建一个多图图形。它们共享一个图例，因此我在右上角的面板中使用 ggpubr::get_legend() 包含图例（注意：我不能使用 patchwork::plot_layout()，因为图例有不同的基础价值）。

基础图

library(ggplot2)
library(patchwork)
library(ggpubr)

p <- ggplot(data = mtcars %>% mutate(cyl = as.factor(cyl)),
                mapping = aes(x = wt, y = mpg, group = cyl, color = cyl)) +
   geom_smooth(method = "lm")

当顶行和底行有6个相同的地块时，地块对齐：

(p | p | p | p | p | p) /
   (p | p | p | p | p | p) &
   theme(legend.position = "none")

当顶行的第 5 个图是图例时，它们不对齐：

leg <- as_ggplot(get_legend(p))

(p | p | p | p | p | leg) /
   (p | p | p | p | p | p) &
   theme(legend.position = "none")

【参考方案1】：

这也可以通过gridExtra 包中的grid.arrange() 来完成：

library(gridExtra)

grid.arrange(p, p, p, p, p, leg,
             p, p, p, p, p, p,
             nrow = 2)

【参考方案2】：

实现所需结果的一种选择是将包括图例在内的所有图放在一个列表中并使用patchwork::wrap_plots：

library(ggplot2)
library(patchwork)
library(ggpubr)

p <- ggplot(data = mtcars %>% mutate(cyl = as.factor(cyl)),
            mapping = aes(x = wt, y = mpg, group = cyl, color = cyl)) +
  geom_smooth(method = "lm")

leg <- as_ggplot(get_legend(p))

p_list <- lapply(1:12, function(x) if (x == 6) leg else p)
wrap_plots(p_list, nrow = 2) &
  theme(legend.position = "none")