r - 将 n 个 ggplots 排列成下三角矩阵形状

Question

我有 n 个 ggplot 对象，它们总是有正确的数字来制作矩阵的下三角形(没有对角线)。我怎样才能按这个顺序排列它们:

1
2 3
4 5 6
7 8 9 10

形成一个网格(这里n = 10)？

这是制作 n 个图的数据，以及我希望它看起来如何，我有 n = 6。

n <- sample(1:4, 1)
N <- sum(n:1)

library(ggplot2)
theplot <- ggplot(mtcars, aes(mpg, hp)) + geom_point()
plots <- lapply(1:N, function(i) theplot)
plots <- mapply(function(x, y) x + ggtitle(y), plots, 
    paste("PLOT", seq_along(plots)), SIMPLIFY=FALSE)

我怀疑 gridExtra在这里可能有用，但有空白 Pane 。我愿意根据或添加包装想法。

Answer 1

您可以将矩阵布局传递给 grid.arrange，

library(ggplot2)
library(gridExtra)
plots <- lapply(1:10, function(id) ggplot() + ggtitle(id))

m <- matrix(NA, 4, 4)
m[lower.tri(m, diag = T)] <- 1:10
grid.arrange(grobs = plots, layout_matrix = m)