如何使用 grid.arrange 移动图例位置

我试图在一页中排列 4 个图，将图例放在底部中心

我用它来获取其中一个图的图例（因为它们对于四个图来说是相同的）

    get_legend<-function(myggplot){
    tmp <- ggplot_gtable(ggplot_build(myggplot))
    leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
    legend <- tmp$grobs[[leg]]
    return(legend)
    }

然后，我从任何情节中得到图例

   legend <- get_legend(p2)

所以对于我使用的图：

 tt <-grid.arrange(arrangeGrob(p6, p7, p8, p9, legend,
                          nrow = 2, #
                          left = textGrob("Mammalian species richness", rot = 90, vjust = 1, 
                                          gp = gpar(fontsize = 12))))

但我得到的是这样的：

如何将图例移动到中心按钮并具有 2 行 2 列？ 命令nrow, ncol没有工作，因为我收到了一条错误消息，也没有类似的东西

tt  <- tt + theme(legend.position ="bottom"). 

附：以防万一这个信息很重要，如果我尝试不放置任何图例，我可以根据需要将四个图放在网格中，但没有图例，所以，你知道这不利于出版。

您可以使用参数layout_matrix in grid.arrange为了更多的控制。

一个可重现的例子，

library(ggplot2)
library(gridExtra)

get_legend<-function(myggplot){
    tmp <- ggplot_gtable(ggplot_build(myggplot))
    leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
    legend <- tmp$grobs[[leg]]
    return(legend)
    }

p <- ggplot()
p2 <- ggplot(mtcars, aes(mpg, wt, col=factor(am))) + geom_point()
legend <- get_legend(p2)


grid.arrange(p, p, p, p, legend, 
             layout_matrix=rbind(c(1,2,3), c(4,5,5)))

哪个产生

或者也许你想要

grid.arrange(p, p ,p, p, legend, 
             layout_matrix=rbind(c(1,1,2,2,5), c(3,3,4,4,5)))