拼凑中色标的水平对齐

Question

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

如果可以使用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')。如果您想更改图例的位置，您可以在 plot_layout 之后添加 & theme(legend.position = 'right') 并调整位置。

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)  

Answer 2

我也很想知道可以解决此问题的拼凑参数，但我认为没有（如果我错了，请纠正我）。您可能已经注意到，Hadley 的答案已有 10 多年的历史，从那时起人们一直在研究 ggplot2。 ggnewscale 包解决了每个地块有多个比例的问题。这是一种使用多色标的分面方法：

library(ggplot2)
library(ggnewscale)

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

ggplot(mapping = aes(x = x, y, y)) +
  geom_point(data = transform(testdata, 
                              facet = factor("Top", c("Top", "Bottom"))),
             aes(colour = col)) +
  scale_colour_continuous(name = "Short") +
  new_scale_colour() +
  geom_point(data = transform(testdata,
                              facet = factor("Bottom", c("Top", "Bottom"))),
             aes(colour = col)) +
  scale_colour_continuous(name = "A rather longer name") +
  facet_wrap(~ facet, ncol = 1)