将多个图例与拼凑对齐

Question

在这个拼凑而成的小插图中解释了如何组合多个 ggplots。我遇到的一个困难是收集图例并在它们的标题在字符数上非常不同时正确对齐/对齐它们。

下面是一个示例 - 我希望“mpg”图例也左对齐/对齐，而不是在“大小”图例下方居中。有什么建议？请注意，添加theme(legend.justification = "left")并不能解决问题。

library(ggplot2)
library(patchwork)

p1 <- ggplot(mtcars) + 
  geom_point(aes(mpg, disp, colour = mpg, size = wt)) + 
  guides(size = guide_legend(title = "Size - long title for the purpose of this example")) +
  ggtitle('Plot 1')

p2 <- ggplot(mtcars) + 
  geom_boxplot(aes(gear, disp, group = gear)) + 
  ggtitle('Plot 2')

p3 <- ggplot(mtcars) + 
  geom_point(aes(hp, wt, colour = mpg)) + 
  ggtitle('Plot 3')

(p1 | (p2 / p3)) + plot_layout(guides = 'collect')

^{由reprex 包(v0.3.0)于 2019 年 12 月 16 日创建}

Answer 1

与此同时，Ilia Kats 解决了这个问题。

使用 & theme(legend.justification = "left")（当保持图例分离/与图对齐时）或+ plot_layout(guides = 'collect')（合并图例中的图例）现在就可以了。

用于remotes::install_github("thomasp85/patchwork")更新patchwork（如果在 2020 年之前）。

详细示例：

library(ggplot2)
library(patchwork)

p1 <- ggplot(mtcars) +
  geom_point(aes(mpg, disp, colour = mpg, size = wt)) +
  guides(size = guide_legend(title = "Size - long title for the purpose of this example")) +
  ggtitle('Plot 1')

p2 <- ggplot(mtcars) +
  geom_boxplot(aes(gear, disp, group = gear)) +
  ggtitle('Plot 2')

p3 <- ggplot(mtcars) +
  geom_point(aes(hp, wt, colour = mpg)) +
  ggtitle('Plot 3')

OP的情况是固定的：

(p1 | (p2 / p3)) + plot_layout(guides = 'collect')

但默认情况下仍然没有对齐：

(p1 / p3)

通过合并参考线对齐（现已修复）：

(p1 / p3) + plot_layout(guides = 'collect')

按左对齐（现已修复）：

(p1 / p3) & theme(legend.justification = "left")

（如果两个图之间没有共享图例，这将是可取的（所以这只是一个不好的使用示例））

^{由reprex 包(v0.3.0)于 2020-09-10 创建}

# Session info: 
R version 4.0.1 (2020-06-06),            
 ggplot2     * 3.3.1      2020-05-28 [1] CRAN (R 4.0.0)                        
 patchwork   * 1.0.1.9000 2020-09-10 [1] Github (thomasp85/patchwork@82a5e03)