p1$layout[p1$layout$name == "ticks", ]$clip = "off" 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(...