小编lep*_*lep的帖子

I\xc2\xb4m 尝试在页面中排列 4 个图，将图例放在底部中心

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

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

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

   legend <- get_legend(p2)\n

所以对于我使用的图：

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

但我\xc2\xb4得到的是这样的：

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

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