使用Patchwork时，将facet wrap标签移至x轴下方致底部图y轴异常

以下是几种可行的解决方法：

• 组合后统一应用主题
  避免给单个子图单独设置strip.placement = "outside"，先完成Patchwork绘图组合，再统一添加该主题参数，让Patchwork正确计算整体布局空间：

  library(ggplot2)
  library(patchwork)
  
  # 构建示例子图
  plot1 <- ggplot(mtcars, aes(mpg, disp)) + geom_point() + facet_wrap(~cyl)
  plot2 <- ggplot(mtcars, aes(hp, wt)) + geom_point() + facet_wrap(~gear)
  
  # 先组合，再统一设置主题
  combined_plot <- plot1 / plot2
  combined_plot + theme(strip.placement = "outside")
  

• 手动调整子图底部边距
  如果需要给单个子图设置主题，可通过增加底部子图的绘图边距，为y轴预留足够显示空间：

  # 调整底部子图的边距与主题
  plot2_adjusted <- plot2 + theme(
    strip.placement = "outside",
    plot.margin = margin(b = 25, unit = "pt") # 按需调整底部边距大小
  )
  # 组合子图
  (plot1 + theme(strip.placement = "outside")) / plot2_adjusted
  

• 调整y轴元素的边距
  针对底部子图的y轴刻度、标题添加右侧边距，避免被facet标签挤压：

  plot2_fixed <- plot2 + theme(
    strip.placement = "outside",
    axis.text.y = element_text(margin = margin(r = 8, unit = "pt")),
    axis.title.y = element_text(margin = margin(r = 12, unit = "pt"))
  )
  (plot1 + theme(strip.placement = "outside")) / plot2_fixed
  

效果说明 #

• 使用strip.placement = "outside"时的异常表现：底部子图的y轴刻度、标签被挤压甚至部分缺失，facet标签移至x轴下方但占用了y轴的显示区域。
• 不使用该代码时的正常表现：Patchwork组合的绘图布局规整，所有子图的y轴显示完整，facet标签位于x轴上方。

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