在r图中排列成下三角矩阵形状

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在这里可能有用，但有空白窗格。我打开基地或添加包装创意。

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)

Answer 2

这是一种相当轻松的方法，不应该难以概括：

library(gridExtra) ## for grid.arrange()
ng <- nullGrob()
grid.arrange(plots[[1]], ng,         ng,
             plots[[2]], plots[[3]], ng,
             plots[[4]], plots[[5]], plots[[6]])

Answer 3

当wq::layOut似乎过于复杂时，我是grid.arrange安排ggplots的粉丝（尽管Josh表明它在这里工作得很好）。如果您使用新设备，则不必担心漏洞。

layOut已从wq包中删除，因此我在此处添加了代码，重命名为lay_out。在使用示例之后，它位于底部。

lay_out(list(plots[[1]], 1, 1), # each arg is list(plot, row(s), column(s))
       list(plots[[2]], 2, 1),
       list(plots[[3]], 2, 2))

它的主要优势在于你有不同大小的地块。

lay_out(list(plots[[1]], 1, 1:3), 
        list(plots[[2]], 2, 1),
        list(plots[[3]], 2, 2),
        list(plots[[4]], 3, 1:2),
        list(plots[[5]], 2:3, 3))

我认为您可以使用嵌套layOut和grid.arrange来完成arrangeGrob所做的任何事情，但通常可以更容易地考虑这种方式。

#' Arranging ggplots
#' 
#' Provides a \code{layout}-like interface for arranging ggplots of different 
#' sizes.
#' 
#' @param ... Each argument should be of the form \code{list(plot, rows, 
#' columns)}, where \code{plot} is a ggplot (or similar), and \code{rows} and 
#' \code{columns} are consecutive sequences indicating the row and column 
#' numbers for \code{plot} to span.
#' 
#' @author Alan D. Jassby and James E. Cloern (originally from the \code{wq} 
#' package).
#' 
#' @examples
#' \dontrun{
#' gg <- ggplot(mtcars, aes(x = hp, y = mpg)) + geom_point()
#' layOut(list(gg, 1:2, 1:3),
#'        list(gg, 3, 1:2),
#'        list(gg, 3, 3))
#' }
#' 
#' @export
lay_out <- function(...) {

    x <- list(...)
    n <- max(sapply(x, function(x) max(x[[2]])))
    p <- max(sapply(x, function(x) max(x[[3]])))
    grid::pushViewport(grid::viewport(layout = grid::grid.layout(n, p)))    

    for (i in seq_len(length(x))) {
        print(x[[i]][[1]],
              vp = grid::viewport(layout.pos.row = x[[i]][[2]], 
                                  layout.pos.col = x[[i]][[3]]))
    }
}

Answer 4

这是更通用的解决方案......

rows <- 1:3
get.row <- function(i){
  if (i==1) return(arrangeGrob(plots[[1]],ncol=length(rows)))
  start=sum(seq[1:(i-1)])+1
  end  <- start+seq[i]-1
  do.call(arrangeGrob,c(lapply(start:end,function(i)plots[[i]]),ncol=length(rows)))
}
grid.newpage()
grid.arrange(do.call(arrangeGrob,c(lapply(1:length(rows),get.row),nrow=length(rows))))

Answer 5

Josh的回答构建了另一个概括

trianglePlotGrid <- function(plots){
  #take a list of plots and returns a single plot where the elements in the list arranged in a triangular grid
  #plots should be a list of 1 or 3 or 6... plots to be arranged in a trianglular structure with 1 plot in the top row
  ncols <- (-1 + sqrt(1 + 8*length(plots)))/2
  i = 0; j = 0

  grobs <- list()

  for(p in plots){
    grobs[[length(grobs)+1]] <- p
    j = (j+1) %% ncols

    while(j > i){
      grobs[[length(grobs)+1]] <- nullGrob()
      j = (j+1) %% ncols
    }

    if(j == 0) i = i + 1
  }

  do.call("grid.arrange", c(grobs, ncol=ncols))
}

df <- data.frame(x=c(1,2), y=c(1,2))
p <- ggplot(df, aes(x=x, y=y))+geom_point()
plist <- list(p, p, p, p, p, p)
trianglePlotGrid(plist)