我正在使用拼凑在 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")