ggarrange中图例文本超出边界的解决方法咨询：拆分或调整？

针对你遇到的图例文本超出绘图边界的问题，以下是几种实用的解决办法，结合你的ggplot2 + ggarrange代码给出具体实现：

1. 调整图例尺寸与位置 #

这是最直接的解决方案，通过缩小图例文字、改变图例位置来适配绘图区域：

缩小图例文本大小 #

在生成final_plot后添加主题调整代码，按需缩小图例文字和标题的尺寸：

final_plot <- ggarrange(ca_plot, ny_plot, fl_plot, tx_plot, ncol = 2, nrow = 2,
                        common.legend = TRUE)

# 调整图例文本大小
final_plot +
  theme(legend.text = element_text(size = 8),  # 可根据实际情况调整字号
        legend.title = element_text(size = 9))

更改图例位置到底部/顶部 #

利用横向空间放置图例，避免右侧空间不足：

final_plot <- ggarrange(ca_plot, ny_plot, fl_plot, tx_plot, ncol = 2, nrow = 2,
                        common.legend = TRUE, legend = "bottom")  # 图例放在底部

final_plot +
  theme(legend.text = element_text(size = 8))

2. 拆分图例为多列 #

如果图例条目数量较多，拆分成多列可以减少纵向/横向的空间占用：

final_plot +
  theme(legend.text = element_text(size = 8),
        legend.columns = 2,  # 拆分为2列，可根据条目数调整为3列等
        legend.direction = "vertical",  # 垂直排列列
        legend.key.size = unit(0.5, "cm"))  # 缩小图例图标尺寸

3. 调整绘图区域与图例的宽度比例 #

通过ggarrange的widths参数，给图例预留足够的空间：

final_plot <- ggarrange(ca_plot, ny_plot, fl_plot, tx_plot, ncol = 2, nrow = 2,
                        common.legend = TRUE, legend = "right",
                        widths = c(4, 1))  # 绘图区域与图例区域宽度比为4:1

final_plot +
  theme(legend.text = element_text(size = 8))

4. 提前处理过长的图例文本 #

如果是书籍名称过长导致的溢出，在数据处理阶段就对文本进行换行或缩写：

# 加载stringr包用于文本处理
library(stringr)

# 对book列文本进行换行，指定每行最大字符数
df <- df %>%
  mutate(book = str_wrap(book, width = 12))  # 按需调整每行最大字符数

方法选择建议 #

• 若仅为文本稍长：优先选择缩小图例文本或调整图例位置，操作最简单；
• 若图例条目较多：选择拆分图例为多列更合理；
• 若书名本身过长：提前处理文本换行是从根源解决问题的方式。

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