排列多个具有相同绘图宽度但绘图高度不同的ggplots

Question

我尝试使用gridExtra包安排两个不同绘图高度但绘图宽度相同的ggplots。

我有一个相同宽度或相同高度的解决方案，但我无法实现这两个目标。

这是我的代码：

require(ggplot2)
require(gridExtra)

set.seed(987)
dat <- data.frame(x = 1:100, 
              y1 = rnorm(100),
              y2 = rnorm(100)*1e6)

p1 <- ggplot(dat, aes(x = x, y = y1)) + 
  geom_point() + ylab("")

p2 <- ggplot(dat, aes(x = x, y = y2)) + 
  geom_point() + ylab("")

# Arrange Plots

# Version 1
# same widths, same heights
grid.draw(rbind(ggplotGrob(p1), ggplotGrob(p2), size = "last"))

# Version 2
# different heights, different widths
grid.arrange(p1, p2, ncol = 1, heights = c(2, 1)) 

结果如下：

版本1：宽度相同但高度不同

版本2：不同的高度但不同的绘图宽度

但是，我想要组合：宽度相同，但高度不同。在这种情况下，您对如何组合grid.draw和grid.arrange有什么想法吗？

Answer 1

感谢@Gregor及其与questions的链接，我可以使用其他问题的大部分代码进行一些细微的更改。这就是它最终的样子：

gb1 <- ggplot_build(p1)
gb2 <- ggplot_build(p2)
# work out how many y breaks for each plot
n1 <- length(gb1$panel$ranges[[1]]$y.labels)
n2 <- length(gb2$panel$ranges[[1]]$y.labels)

gA <- ggplot_gtable(gb1)
gB <- ggplot_gtable(gb2)

# combine both plots (last should really be "pmax", it's an unfortunate bug)
g <- gtable:::rbind_gtable(gA, gB, "last")

# locate the panels in the gtable layout
panels <- g$layout$t[grepl("panel", g$layout$name)]
# assign new (relative) heights to the panels, based on the number of breaks
g$heights[panels] <- list(unit(n1*2,"null"), unit(n2, "null")) 
# notice the *2 here to get different heights 

grid.newpage()
grid.draw(g)