如何在R Markdown中用for循环批量生成含文本、图表的独立章节

该需求完全可以实现，以下是两种常用的落地思路：

前置准备 #

首先确认你已经安装并加载了必要的包，提前完成基础数据和自定义函数的定义：

library(formattable)
# 自定义处理函数
some_function <- function(df, loc) {
  df$data <- df$data + loc
  return(df)
}
# 生成初始数据和结果列表
df <- data.frame(
  name = LETTERS[1:12],
  data = runif(n = 12)
)
df_list <- list()
for (i in 1:5) {
  df_list[[i]] <- some_function(df, i)
}

方案一：循环内直接输出（适合结构简单的场景） #

你只需要给代码块加上results='asis'参数，让R Markdown将cat输出的内容识别为原生markdown语法，同时在循环内显式打印图表对象即可。
完整代码块写法如下：

# 代码块头部必须设置：{r, results='asis', echo=FALSE, warning=FALSE, message=FALSE}
for (i in 1:5) {
  # 输出二级章节标题
  cat("## 第", i, "节：返回一张表格和一张绘图\n\n")
  # 可自由添加自定义文本内容
  cat("当前为第", i, "轮生成结果，所有数值在初始基础上加了", i, "。\n\n")
  # 输出表格模块
  cat("### 对应生成表格\n")
  # 循环内必须显式print才能渲染表格
  print(formattable(df_list[[i]]))
  cat("\n\n")
  # 输出绘图模块
  cat("### 对应生成绘图\n")
  # 基础绘图、ggplot2绘图都需要显式print才能在循环内渲染
  p <- plot(df_list[[i]]$data, main = paste0("第",i,"轮数据分布"))
  print(p)
  # 章节间加分隔线区分
  cat("\n\n---\n\n")
}

方案二：模板渲染（适合章节结构复杂的场景） #

如果每个章节包含大量自定义文本、多段代码、嵌套内容，推荐用knitr::knit_expand做模板渲染，维护成本更低。
首先定义章节模板：

template <- "
## 第{{i}}节：返回一张表格和一张绘图
当前为第{{i}}轮生成结果，所有数值在初始基础上加了{{i}}。
### 对应生成表格
```{r, echo=FALSE}
print(formattable(df_list[[{{i}}]]))

对应生成绘图 #

plot(df_list[[{{i}}]]$data, main = paste0('第',{{i}},'轮数据分布'))

"

然后在主代码块（同样设置`results='asis'`）中循环渲染模板即可：
```r
for (i in 1:5) {
  cat(knitr::knit_expand(text = template, i = i))
}

注意事项 #

• 若你需要输出PDF/Word格式的文档，formattable对非HTML格式兼容性较差，建议替换为knitr::kable或kableExtra系列工具生成表格。
• 所有在循环内需要渲染的图表、表格对象，都必须显式调用print()，否则R默认不会在循环中输出这类对象。

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