rmarkdown中plot（glm）的编号数字

Question

我创建了一个Rmarkdown文档，并希望对数字进行编号。 我正在努力的是，如果plot给了我一些像plot("glm Object")这样的输出？

这是一个最小的示例：

---
documentclass: article
output: pdf_document
---

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

```{r, fig.cap = "Test"}
data(warpbreaks)
daten <- as.data.frame(warpbreaks)
test <- glm(breaks ~ tension + wool , family = "poisson", data = daten)
plot(test)
```

Answer 1

您可以使用Rmarkdown鲜为人知的功能并将字幕添加到子图： https ://stackoverflow.com/a/49086985/7347699

例如：

---
documentclass: article
output: pdf_document
header-includes:
   - \usepackage{subfig}
---

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

```{r, fig.cap = "Test",  fig.subcap=c('sub 1', 'sub 2', 'sub 3', 'sub 4'), out.width='.49\\linewidth', fig.asp=1, fig.ncol = 2}
data(warpbreaks)
daten <- as.data.frame(warpbreaks)
test <- glm(breaks ~ tension + wool , family = "poisson", data = daten)
plot(test)
```

替代方法

绘制多个R图的一种可能更简单的方法是在绘制之前使用par函数。 这样做的好处是它的简单性，并且您无需在标头中加载其他LaTeX软件包。 但是，不可能为每个图添加子标题。

---
documentclass: article
output: pdf_document
---

```{r, fig.cap = "Test", fig.asp = 1}
data(warpbreaks)
daten <- as.data.frame(warpbreaks)
test <- glm(breaks ~ tension + wool , family = "poisson", data = daten)

par(mfrow = c(2, 2))
plot(test)
```