maxWidth = unit.pmax(p1$widths[2:3]) p1$widths[2:3] <- maxWidth g <- grid.arrange (p1, ncol=1) } else if(n > 1) { for(i in seq(1, n, 1)) { p0 <- ggplot_gtable(ggplot_build(get(plots[i]))) panel <-c(subset(p0$layout, name=="panel", se=t:r)) panel <-...