如何调整ggarrange组合图的图例位置以完整显示？

下面是几个实用的调整方案，能让底部完整展示共用图例：

1. 缩小图例本身的元素尺寸 #

先单独提取图例并调整文字、符号大小，再传入ggarrange：

library(ggplot2)
library(ggpubr)

# 假设你的子图都存在plot_list列表里
custom_legend <- get_legend(plot_list[[1]] + 
                              theme(legend.text = element_text(size = 8),  # 缩小图例文字
                                    legend.title = element_text(size = 10), # 缩小标题
                                    legend.key.size = unit(0.5, "cm")))     # 缩小图例符号

# 重新组合图，用自定义图例
ggarrange(plotlist = plot_list,
          ncol = 4, nrow = 3,
          common.legend = TRUE,
          legend.grob = custom_legend,
          legend = "bottom")

2. 给组合图底部加空白边距 #

通过bottom参数预留足够空间给图例：

library(grid)
library(ggpubr)

ggarrange(plotlist = plot_list,
          ncol = 4, nrow = 3,
          common.legend = TRUE,
          legend = "bottom",
          bottom = textGrob("", height = unit(1, "cm"))) # 按需调整height数值

3. 导出时放大画布高度 #

如果是导出图片时显示不全，直接在ggsave里设置更大的高度：

library(ggpubr)

p <- ggarrange(plotlist = plot_list,
               ncol = 4, nrow = 3,
               common.legend = TRUE,
               legend = "bottom")

ggsave("你的图片名.png", p, width = 16, height = 12, dpi = 300) # height按需调整

4. 换用patchwork包（更灵活的图组合工具） #

patchwork对共用图例的支持更智能，试试这个替代方案：

library(patchwork)
library(ggplot2)

# 4列3行组合子图
combined_plot <- wrap_plots(plot_list, ncol = 4)

# 收集共用图例并放在底部，同时调整尺寸
combined_plot + plot_layout(guides = "collect") & 
  theme(legend.position = "bottom",
        legend.text = element_text(size = 8),
        legend.title = element_text(size = 10))

内容的提问来源于stack exchange，提问作者Maria