一起布置列表ggplot时保持绘制高度固定

Question

我正在创建 list 个 ggplot 热图，它们具有相同的行数但不同的列数和不同的 x 轴刻度标签长度：

plot.list <- vector(mode="list",length(3))
n.cols <- c(600,30,300)
x.labs <- c("medium","this is a long label","sh")
library(ggplot2)

for(i in 1:3){
  set.seed(1)
  df <- reshape2::melt(matrix(rnorm(100*n.cols[i]),100,n.cols[i],dimnames = list(paste0("G",1:100),paste0("S",1:n.cols[i]))))
  plot.list[[i]] <- ggplot(data=df,mapping=aes(x=Var2,y=Var1,fill=value))+
    geom_tile()+theme_minimal()+scale_fill_gradient2(name="Scaled Value",low="darkblue",mid="gray",high="darkred")+
    scale_x_discrete(name=NULL,breaks=unique(df$Var2)[floor(length(unique(df$Var2))/2)],labels=x.labs[i])+
    scale_y_discrete(name=NULL)+
    theme(legend.position=NULL,axis.title.x=element_blank(),axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))
  if(i != 1) plot.list[[i]] <- plot.list[[i]]+theme(axis.text.y=element_blank())
  if(i != 3) plot.list[[i]] <- plot.list[[i]]+theme(legend.position = "none")
}

然后我想将它们水平组合在一起，并用很小的边距将它们分开，并使它们的宽度与列数相关。

尝试使用 gridExtra 的 arrangeGrob 实现此目的：

gridExtra::arrangeGrob(grobs=plot.list,ncol=length(plot.list),widths=n.cols,padding=0.01)

或 cowplot 的 plot_grid:

cowplot::plot_grid(plotlist=plot.list,align="v",axis="tb",ncol=length(plot.list),rel_widths=n.cols)

给我：

所以我的问题是：

如何让它们具有相同的高度并让 x 轴标签向下延伸到不同的长度？
缩小它们之间的空间？我尝试减小 padding 值，但没有看到任何变化

请注意，我知道使用 facet_grid 可能是首先创建它的明显方法，但我特别需要先创建地块列表，然后再组合它们。

Answer 1

egg:ggarrange和cowplot::plot_grid()都可以做到这一点。

至于回答 1，请尝试：

library(egg)
plot1 <- plot.list[[1]]
plot2 <- plot.list[[2]]
plot3 <- plot.list[[3]]
ggarrange(plot1, plot2, plot3, ncol = 3, widths = c(600,30,300)) #originally had the 20,3,10, but I don't think it scales right.

至于2，你可以预先设置你plot.margins，然后像以前一样安排。

plot1 <- plot.list[[1]] + theme(plot.margin = margin(1,0,1,1)) # order is top, right, bottom, left. Go negative if you want them to touch.
plot2 <- plot.list[[2]] + theme(plot.margin = margin(1,0,1,0))
plot3 <- plot.list[[3]] + theme(plot.margin = margin(1,1,1,0))
ggarrange(plot1, plot2, plot3, ncol = 3, widths = c(600,30,300))

plot_grid 将为您提供与下面相同的图像。

cowplot::plot_grid(plot1, plot2, plot3, ncol = 3, axis = "b", align = "h", rel_widths = c(600,30,300))

一起布置列表ggplot时保持绘制高度固定

Keeping plotted heights fixed when laying out a list ggplot together

r

ggplot2

gridextra

r-grid

grob