RMarkdown多图布局调整：实现一行两图的宽幅展示需求

我来帮你搞定这个多图布局的麻烦！你想要的一行两张、宽幅显示完整标题的效果，用patchwork包就能轻松实现——我自己做RMarkdown报告时也常遇到图挤在一起、标题截断的问题，这个包的语法直观，调整布局特别灵活。

步骤1：安装并加载必要工具 #

首先确保你安装了patchwork（如果你的自定义绘图基于ggplot2，它绝对是绝佳搭档）：

install.packages("patchwork")
library(patchwork)
library(ggplot2) # 假设你的自定义绘图函数基于ggplot2

步骤2：调整自定义绘图函数（示例参考） #

假设你的自定义函数大概是这样生成四张GLM相关图的：

# 示例自定义GLM诊断绘图函数
plot_glm_diagnostics <- function(model) {
  # 残差直方图
  p1 <- ggplot(data.frame(resid = residuals(model)), aes(x = resid)) +
    geom_histogram(bins = 15, fill = "steelblue", alpha = 0.7) +
    labs(title = "Residual Histogram", x = "Residuals", y = "Count")
  
  # 残差箱线图
  p2 <- ggplot(data.frame(resid = residuals(model)), aes(y = resid)) +
    geom_boxplot(fill = "coral", alpha = 0.7) +
    labs(title = "Residual Boxplot", y = "Residuals")
  
  # 拟合值vs残差散点图
  p3 <- ggplot(data.frame(fit = fitted(model), resid = residuals(model)), aes(x = fit, y = resid)) +
    geom_point(color = "darkgreen") +
    geom_hline(yintercept = 0, linetype = "dashed") +
    labs(title = "Fitted Values vs Residuals", x = "Fitted Values", y = "Residuals")
  
  # 自变量vs残差散点图（取模型第一个自变量）
  p4 <- ggplot(data.frame(x = model$model[[1]], resid = residuals(model)), aes(x = x, y = resid)) +
    geom_point(color = "purple") +
    geom_hline(yintercept = 0, linetype = "dashed") +
    labs(title = "Predictor vs Residuals", x = names(model$model)[1], y = "Residuals")
  
  return(list(p1, p2, p3, p4))
}

步骤3：用patchwork实现2x2布局 #

调用函数生成四张图后，用patchwork的语法组合成一行两张的布局，同时通过代码块参数调整图形尺寸，确保标题完整显示：

在RMarkdown的代码块里这样写：

```{r glm-plots, fig.width=14, fig.height=10, fig.align='center', out.width='100%'}
# 先拟合一个示例GLM模型（替换成你自己的模型）
model <- glm(mpg ~ wt + hp, data = mtcars, family = gaussian)
plots <- plot_glm_diagnostics(model)

# 2x2布局：第一行p1|p2，第二行p3|p4
plots[[1]] + plots[[2]] + plots[[3]] + plots[[4]] +
  plot_layout(ncol = 2, nrow = 2) +
  plot_annotation(title = "GLM Diagnostic Plots", theme = theme(plot.title = element_text(size = 16, hjust = 0.5)))

## 步骤4：优化YAML头部设置
为了给宽幅图形留出足够空间，建议在YAML里调整页边距，同时指定输出格式的图形参数：
```yaml
---
title: "GLM Diagnostic Report"
author: "Your Name"
fontsize: 11pt
graphics: true
documentclass: article
geometry: margin=1in # 缩小页边距，给图形更多展示空间
output:
  pdf_document:
    fig_caption: true
  html_document:
    fig_width: 14
    fig_height: 10
---

关键细节说明 #

• fig.width/fig.height：调整图形的原始尺寸，数值越大，图形越宽越高，标题和坐标轴标签就不会被截断。
• out.width='100%'：让生成的图形占满整个页面宽度，完美适配文档布局。
• plot_layout(ncol=2)：强制布局为2列，自动实现一行两张、两行四张的效果。

这样设置后，你的四张GLM图形就能整齐地以2x2布局展示，宽幅设置也能保证所有标题、标签信息完整显示，不会出现截断问题。

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