Eu quero criar um multiplot deggplot2 plotagens de uma lista usandogrid.arrange mas organize-os por colunas antes de fazê-lo por linhas.

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))

Eu sei que posso fazer isso:

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

mas preenche da esquerda para a direita antes de cima para baixo.

Eu tentei isso:

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

Mas pegueError: length(widths) == ncol is not TRUE

Alguma ideia?