如何在R Markdown同一代码块中生成动态标题并正常打印R输出

解决方法 #

核心思路是使用results='asis'代码块让生成的Markdown标题生效，同时将R函数的控制台输出手动包裹在Markdown代码块标记中，保留输出的原始格式。

完整修改后的代码示例 #

---
title: "R Markdown Test"
output:
  html_document:
    number_sections: yes
    theme: default
    toc: yes
    toc_depth: 4
    toc_float: no
    code_folding: hide
---

# 循环生成标题+正常显示R输出的实现效果

```{r results='asis'}
# 可提前封装通用打印函数，复用更方便
print_with_format <- function(obj) {
  # 捕获R输出
  output_content <- capture.output(print(obj))
  # 手动包裹为Markdown代码块
  cat("\n```r\n", paste(output_content, collapse = "\n"), "\n```\n", sep = "")
}

for (i in 1:2) {
  # 生成章节标题，直接输出即可被识别为Markdown标题
  cat("\n## Subsection", i, "\n")
  # 调用封装函数打印任意R对象，保留原始输出格式
  print_with_format(matrix(i*(1:6), nrow=2))
  # 替换为你的真实输出也可正常使用，比如：
  # print_with_format(summary(lm(rnorm(10)~runif(10))))
}
```

效果说明 #

• 用cat输出的标题会被正常识别为Markdown章节，自动加入TOC目录、支持编号规则
• R函数的输出会保留控制台原始格式，和不加results='asis'时的展示效果完全一致
• 兼容所有R常规输出类型，不需要针对矩阵、回归结果等不同对象单独适配

内容的提问来源于stack exchange，提问作者John K. Kruschke