如何在Quarto中通过R循环生成带层级标题的Word文档？

• 环境配置：R 4.2.2、R Studio 2022.12.0 Build 353、Quarto 1.2.280、Ubuntu 20.04
• 需求：生成Word(docx)文档，写完概述文本后，通过循环批量生成## County X格式的二级标题，以及对应子项内容
• 遇到的问题：手动写Markdown语法能正常识别层级，但用cat()循环输出时，Quarto不认标题层级，还经常出现换行混乱、段落合并的问题

核心就是给R代码块加上results='asis'参数，让Quarto把代码输出的内容直接当作Markdown语法解析，而不是普通文本。

完整示例代码 #

---
title: "区县统计报告"
format: docx
---

## 概述
这是文档的前置概述内容，后续将自动生成各区县的详细板块。

```{r, results='asis', echo=FALSE}
# 模拟要循环的区县数据
counties <- c("A", "B", "C")
county_info <- list(
  list(pop = "120万", area = "800平方公里"),
  list(pop = "95万", area = "650平方公里"),
  list(pop = "150万", area = "920平方公里")
)

# 循环生成二级标题和子项
for (i in seq_along(counties)) {
  # 输出二级标题，末尾加两个换行符分隔段落
  cat(sprintf("## County %s\n\n", counties[i]))
  # 输出子项列表，每项后加换行，最后再加两个换行符
  cat("- 人口：", county_info[[i]]$pop, "\n")
  cat("- 面积：", county_info[[i]]$area, "\n\n")
}

## 注意要点
- `results='asis'`：这个参数是关键，没有它的话，Quarto会把`## County X`当成普通文本输出，不会解析成二级标题
- 换行处理：Markdown里用两个换行符区分段落，所以每个标题、每个列表项结束后要加足够的`\n`，避免内容挤在一起
- `echo=FALSE`：如果不想把R代码显示在最终文档里，就加上这个参数；要是需要展示代码逻辑，可以去掉

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