r - grid.arrange ggplot2使用列而不是使用列表按行进行绘制

Question

我想使用ggplot2从列表中创建grid.arrange图的多图，但是在按行排列之前按列排列它们。

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

我知道我可以这样做:

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

但它从上到下从左到右填充。

我已经试过了:

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

但是获取 Error: length(widths) == ncol is not TRUE
有任何想法吗？

Answer 1

您可以使用grobs参数传递列表，并使用as.table参数按列填充，因此，使用c进行了展平

grid.arrange(grobs = c(gg_list1, gg_list2), ncol = 2, as.table = FALSE)

如果您想要更复杂的布局，请使用 layout_matrix参数:

my_layout <- rbind(c(1, 1:3, 4), c(1, 1:3, 4), c(1, 1:3, 5), c(1, 1:3, 6))

my_layout
##      [,1] [,2] [,3] [,4] [,5]
## [1,]    1    1    2    3    4
## [2,]    1    1    2    3    4
## [3,]    1    1    2    3    5
## [4,]    1    1    2    3    6

grid.arrange(grobs = c(gg_list1, gg_list2), layout_matrix = my_layout)

有关详细信息，请参见 the arrangeGrob vignette。