如何用循环自动化生成RMarkdown中的多份统计表格？

问题背景 #

需要生成32份统计表格的Markdown文档，表格数据存储在一个R列表中，手动重复编写代码效率极低，尝试用循环实现自动化但未成功。

模拟数据代码 #

mylist <- list(
  fruits=data.frame(fruit=c("Apple","Mango","Banana"),
                    number=c(45,100,70)),
  animals=data.frame(animal=c("Monkey","Lion","Whale","Raven"),
                     number=c(100,2,20,60)),
  countries=data.frame(country=c("France","Senegal","China"),
                       number=c(200,75,1000)),
  cars=data.frame(car=c("Audi","Peugeot","Porsche","Toyota","Alpha Romeo"),
                  number=c(5,7,18,2,8))
)
saveRDS(mylist, file = "mylist.RDS")

失败的循环尝试 #

`r for (i in seq_along(mylist)) {
  cat("# Statistics on `r names(mylist)[", i, "]`\n\n")
  cat("```{r}\n")
  cat("kable(mylist[[", i, "]])\n")
  cat("```\n\n")
`

错误原因 #

1. 在R代码块的cat语句中嵌套`r `语法是错误的，无需再次使用代码块标记，直接调用R对象即可。
2. 循环代码未正确闭合，缺少}和闭合的`。
3. 未设置代码块参数results='asis'，导致cat输出的内容无法被当作Markdown渲染。

正确的自动化实现 #

方法一：基础循环实现

以下是完整的可运行Rmd代码：

---
title: 统计表格自动化生成
author: "MYNAME"
date: "2024-02-16"
output:
  word_document: default
  html_document: default
---

knitr::opts_chunk$set(echo = FALSE, eval = TRUE)

mylist <- readRDS("mylist.RDS")
library(knitr)

for (i in seq_along(mylist)) {
  # 输出带名称的标题
  cat(sprintf("# Statistics on %s\n\n", names(mylist)[i]))
  # 输出渲染表格的代码块
  cat("```{r}\n")
  cat(sprintf("kable(mylist[[%d]])\n", i))
  cat("```\n\n")
}

方法二：purrr包简化实现

如果安装了purrr包，可以用更简洁的方式遍历列表，同时获取数据框和对应名称：

library(purrr)
iwalk(mylist, function(df, name) {
  cat(sprintf("# Statistics on %s\n\n", name))
  cat("```{r}\n")
  cat("kable(df)\n")
  cat("```\n\n")
})

关键说明 #

• 必须给生成表格的代码块添加results='asis'参数，让knitr直接将cat输出的内容解析为Markdown格式。
• 使用sprintf格式化字符串，避免直接拼接文本时出现多余空格或语法错误。

内容的提问来源于stack exchange，提问作者Seydou GORO