创建生成报告的.rmd文件，并将柱面作为值传递。
下面是.rmd文件（比如cylinder.rmd）

---
title: "cylinder_report"
author: "author_name"
date: "2023-01-25"
output: pdf_document
params:
  cylinder: 0
---

``{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
df = mtcars
``

## Cylinder `r params$cylinder`
``{r output, echo=FALSE}
knitr::kable(df[df$cyl == params$cylinder,])
``

然后，您可以单独循环柱面值，每次传递柱面值

cyls = unique(mtcars$cyl)
for(cyl in cyls) {
  rmarkdown::render(
    input = "cylinder.Rmd",
    output_file = paste0("cylinder_report_", cyl),
    params = list(cylinder = cyl)
    )
}

这将产生cylinder_report_4.pdf、cylinder_report_6.pdf和cylinder_report_8.pdf。
(Note，在这个简单的示例中，您甚至不必传递参数;实际上，将mtcar加载到df中并在.rmd中对其进行子集化是不必要的。当您使用'rmarkdown：：render（）时，环境中的对象可用于.rmd文件，因此您还可以将循环中的数据子集化到rmd文件之外，如下所示：

cyls = unique(mtcars$cyl)
for(cyl in cyls) {
  df = mtcars[mtcars$cyl == cyl,]
  rmarkdown::render(
    input = "cylinder.Rmd",
    output_file = paste0("cylinder_report_", cyl)
    )
}

并且.rmd可以被简化成这样（注意，没有参数，没有创建df，没有子集，等等：

---
title: "cylinder_report"
author: "author_name"
date: "2023-01-25"
output: pdf_document
---

``{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
``

## Cylinder `r cyl`
``{r output, echo=FALSE}
knitr::kable(df)
``

）