嘿，我碰到过好多次这个问题了！用grid.arrange()排多个ggplot时出现重叠，大多是因为单个图形的元素占了太多空间，或者整体布局的画布尺寸没给够。给你几个实用的解决办法：

• 先给每个ggplot“瘦身”：每个图的标题、坐标轴文字、图例都可能占多余空间，统一调整一下能大大缓解挤压。比如：

  # 以NFL_Plot为例，其他图同理调整
  NFL_Plot <- NFL_Plot + 
    theme(plot.title = element_text(size = 10),  # 缩小标题字号
          axis.text = element_text(size = 8),    # 缩小坐标轴文字
          legend.position = "bottom",            # 把图例移到图底部，节省垂直空间
          plot.margin = margin(5,5,5,5, "pt"))   # 缩小图的边距
  

  把所有要排列的图都做类似调整，保持风格一致，避免个别图“膨胀”挤占其他空间。

• 给grid.arrange设置明确的布局尺寸：默认的画布可能不够大，你可以用arrangeGrob()先组合图形，再指定行列的宽高比例，最后导出时设置足够的尺寸。比如：

  library(gridExtra)
  # 先修正你代码里的笔误：NHL_lot → NHL_Plot
  combined_plots <- arrangeGrob(NFL_Plot, NBA_Plot, MLB_Plot, NHL_Plot,
                                NASCAR_Plot, CBB_Plot, CFB_Plot,
                                ncol = 3, nrow = 3,
                                widths = c(1,1,1),  # 三列宽度均等，可按需调整
                                heights = c(1,1,1)) # 三行高度均等
  # 绘制图形，或者直接导出到文件（推荐导出时设足够大的尺寸）
  grid.draw(combined_plots)
  ggsave("sports_plots.png", combined_plots, width = 12, height = 10, dpi = 300)
  

  导出时的width和height可以根据你的图数量和内容调整，数值越大每个图的空间越充足。

• 处理过长的坐标轴标签：如果某个图的坐标轴文字太长，会横向挤压导致重叠。可以旋转文字或者换行：

  NFL_Plot <- NFL_Plot +
    theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 旋转x轴文字45度
  # 或者给长标签加换行：scale_x_discrete(labels = c("标签1\n换行", "标签2"))
  

最后提个小细节：你代码里的NHL_lot应该是NHL_Plot的笔误，先修正这个，不然会少一个图，剩下的位置被其他图挤占也容易出现重叠哦！

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