R Markdown PDF多图排版问题求助

针对patchwork图表仅占页面一半的问题 #

• 在代码块选项中设置适配PDF页面的fig.width和fig.height，同时移除图表内外冗余边距：

  {r, fig.width=8, fig.height=10}
  library(patchwork)
  # 假设p1、p2、p3为你的图表对象
  p1 + p2 + p3 & theme(plot.margin = margin(0, 0, 0, 0))
  

• 在YAML头部缩小页面边距，为图表腾出更多空间：

  ---
  title: "你的文档标题"
  output: pdf_document
  geometry: margin=1cm
  ---
  

针对plot_layout出现多余文本的问题 #

• 确保plot_layout()是patchwork图表拼接的最后一步，不要单独调用或打印该函数，正确写法示例：

  # 正确：直接在图表拼接后调用plot_layout
  p1 + p2 + p3 + plot_layout(ncol=1, heights=c(1,1,1))
  # 错误：避免单独执行plot_layout
  # plot_layout(ncol=1)
  

• 检查代码中是否存在print(plot_layout(...))这类冗余语句，直接删除即可。

分2-3页展示的排版技巧 #

• 拆分代码块，每个代码块对应一页图表，分别设置fig.height适配单页：

  # 第一页图表
  {r, fig.width=8, fig.height=8}
  p1 + p2 + plot_layout(ncol=1)
  

  # 第二页图表
  {r, fig.width=8, fig.height=8}
  p3 + p4 + plot_layout(ncol=1)
  

• 若用批量图表，可通过wrap_plots()配合plot_layout()设置每页高度：

  {r, fig.width=8, fig.height=24}
  wrap_plots(p1, p2, p3, p4, p5, p6) + plot_layout(ncol=1, heights=rep(8, 3)) # 3页，每页高度8
  

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