Quiero crear un lote múltiple deggplot2 trazados de una lista usandogrid.arrange pero organícelos por columnas antes de hacerlo por filas.

gg_list1 <- list(qplot(mpg, disp, data = mtcars), 
                 qplot(hp, wt, data = mtcars), 
                 qplot(qsec, wt, data = mtcars))

gg_list2 <- list(qplot(mpg, disp, data = mtcars), 
                 qplot(hp, wt, data = mtcars), 
                 qplot(qsec, wt, data = mtcars))

Sé que puedo hacerlo:

do.call(grid.arrange,c(gg_list1,gg_list2 , ncol = 2, nrow  = 3))

pero se llena de izquierda a derecha antes de arriba a abajo.

He intentado esto:

 do.call(grid.arrange, c(gg_list1, arrangeGrob(gg_list2, nrow = 3), ncol = 2))

Pero obtenerError: length(widths) == ncol is not TRUE

¿Algunas ideas?