如何使用ggplot2，gridExtra对齐和缩放不同维度的图？

Question

我正在尝试使用ggplot2和gridExtra生成并排图块。 但是，生成的图未按比例缩放/对齐，请参见下面的图片和代码。

我如何制作此图以使单元对齐并具有相同的尺寸？

    代码

library(ggplot2)
library(gridExtra)

## make date frames
one <- floor(runif(56, min=0, max=5))
data.one<- cbind(one,expand.grid(h = seq(1,8,1), w = seq(1,7,1)))

two <- floor(runif(35, min=0, max=5))
data.two <- cbind(two,expand.grid(h = seq(1,7,1), w = seq(1,5,1)))

## gridExtra layout
lay <- rbind(c(1,1,1,1,1,1,1,NA,NA,NA,NA,NA),
             c(1,1,1,1,1,1,1,2,2,2,2,2),
             c(1,1,1,1,1,1,1,2,2,2,2,2),
             c(1,1,1,1,1,1,1,2,2,2,2,2),
             c(1,1,1,1,1,1,1,2,2,2,2,2),
             c(1,1,1,1,1,1,1,2,2,2,2,2),
             c(1,1,1,1,1,1,1,2,2,2,2,2),
             c(1,1,1,1,1,1,1,2,2,2,2,2))

##plots
plot.one<-ggplot(data=data.one)+
  geom_tile(aes(x=w,y=h,fill=one),colour = "grey50")+ 
  scale_fill_gradient(low = "white", high = "blue")+
  theme(legend.position= "none")

plot.two<-ggplot(data=data.two)+
  geom_tile(aes(y=h,x=w,fill=two),colour = "grey50")+ 
  scale_fill_gradient(low = "white", high = "red")+
  theme(legend.position= "none")

grid.arrange(plot.one,plot.two, layout_matrix = lay)

Answer 1

ggplot2不会为绘图面板分配固定的大小，因此您需要转到较低级别，找出每个绘图中的bin数量，并使用它在gtable对象中设置适当的面板大小。另一个复杂之处在于，“ null”单位在网格中有点特殊，因此要使它们随比例缩放，它本身必须是一个null单位，例如在此虚拟rectGrob中从顶部挤压第二个绘图面板，

b1 <- ggplot_build(p1)
b2 <- ggplot_build(p2)

n <- function(b) length(unique(b[["data"]][[1]][["y"]]))

library(egg)
library(grid)

gf1 <- gtable_frame(ggplot_gtable(b1))
gf2 <- gtable_frame(ggplot_gtable(b2))

gf2$grobs[[5]][["grobs"]][[1]] <- arrangeGrob(
  rectGrob(gp=gpar(fill="grey95", col=NA)),  gf2$grobs[[5]][["grobs"]][[1]],
  heights = unit.c(unit(1 - n(b2) / n(b1), "null"), unit(n(b2) / n(b1),"null")))

grid.arrange(gf1, gf2, ncol=2)