r - 拼凑中色标的水平对齐

Question

我正在使用包 patchwork 来垂直组合多个 ggplot2 绘图。无论比例名称的长度如何，我都希望每个地 block 的比例直接在另一个上方。目前，这些比例没有相互对齐。

我愿意使用 ggpubr 或 facet_grid() 如果它们可以做到的话，但我已经看到了这些方面 doesn't allow multiple scales ，我还没有找到任何使用 ggpubr

的解决方案

library(ggplot2)
library(patchwork)

set.seed(0)
testdata <- data.frame(x=1:10, y=1:10, col=runif(10))

g1 <- ggplot(testdata, aes(x=x,y=y,col=col)) + geom_point() + 
  scale_color_gradient(name="Short")
g2 <- ggplot(testdata, aes(x=x,y=y,col=col)) + geom_point() + 
  scale_color_gradient(name="A rather longer name")
g1/g2

ggsave("testfile.tiff", units = "mm", device="tiff", 
       width=100, height=100, dpi = 100)

理想输出:

Answer 1

使用 plot_layout 您可以“收集”图例。这用作默认的 theme(legend.position = 'right')。您可以使用 & theme(legend.position = 'right') 在 plot_layout 之后添加它，如果要更改图例的位置，请调整位置。

g1/g2 + plot_layout(guides = 'collect') # & theme(legend.position = 'right') <- adjust position here!

ggsave("testfile.tiff", units = "mm", device="tiff", 
       width=100, height=100, dpi = 100)