在RMarkdown中为glm对象的多幅输出绘图编号的技术问询

当你调用plot()绘制glm对象时，默认会生成4幅诊断图（残差vs拟合值、Q-Q图、尺度位置图、残差vs杠杆值），要给这些图正确编号，有两种实用的方法，我来详细说明：

方法1：单代码块批量设置多图标题 #

利用knitr的fig.cap参数支持向量的特性，给每一幅图指定对应标题，knitr会自动按顺序为每幅图编号。示例代码如下：

---
documentclass: article
output: pdf_document
---
```{r setup, include = FALSE}
knitr::opts_chunk$set(fig.path = 'figures/', fig.pos = 'htb!', echo = TRUE)

data(warpbreaks)
daten <- as.data.frame(warpbreaks)
test <- glm(breaks ~ tension + wool , family = "poisson", data = daten)
plot(test)  # 默认输出4幅图，与fig.cap向量长度匹配

这样输出的PDF里，每幅图会自动带上`图1: 残差与拟合值的关系`、`图2: 正态Q-Q诊断图`这样的编号和标题，完全符合学术文档的格式要求。

## 方法2：拆分绘图到多个代码块
如果你需要对每幅图单独设置参数（比如调整宽度、高度，或者单独控制显示），可以把每一幅图拆分到独立的代码块中，每个代码块指定自己的`fig.cap`：

```r
---
documentclass: article
output: pdf_document
---
```{r setup, include = FALSE}
knitr::opts_chunk$set(fig.path = 'figures/', fig.pos = 'htb!', echo = TRUE)

data(warpbreaks)
daten <- as.data.frame(warpbreaks)
test <- glm(breaks ~ tension + wool , family = "poisson", data = daten)

plot(test, which = 1)  # 绘制第1幅图

plot(test, which = 2)  # 绘制第2幅图

plot(test, which = 3)  # 绘制第3幅图

plot(test, which = 4)  # 绘制第4幅图

这种方式的优势是灵活性更高，你可以给不同的图设置不同的`fig.width`、`fig.height`等参数，同时每幅图依然会按顺序自动编号。

### 注意事项
- 确保`fig.cap`向量的长度和`plot(test)`输出的图数量一致（glm默认是4幅），如果长度不匹配，knitr会循环使用标题或者截断，影响编号的准确性。
- 如果只需要部分诊断图，可以在`plot()`中用`which`参数指定（比如`plot(test, which = c(1,3))`只绘制第1和第3幅），同时对应调整`fig.cap`的向量长度。

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