如何在Rmd文档中通过循环生成动态折叠区块？

核心要注意两点：一是代码块必须设置results='asis'参数，让R直接输出原始HTML标签；二是循环里的绘图需要手动用print()触发显示。

直接上可运行的示例：

首先构造测试数据框：

df <- data.frame(
  身高 = rnorm(100, 170, 5),
  体重 = rnorm(100, 65, 8),
  年龄 = sample(18:60, 100, replace = TRUE),
  收入 = rnorm(100, 5000, 1000)
)

然后写循环生成折叠区块的代码块（务必加results='asis'）：

---
title: "批量列分析报告"
output: html_document
---

```{r, results='asis', echo=FALSE, warning=FALSE, message=FALSE}
library(ggplot2)

# 遍历每一列
for(col_name in colnames(df)){
  # 输出折叠区块的开头标签
  cat(sprintf("<details><summary>%s 分析报告</summary>\n\n", col_name))
  
  # 输出列的描述统计
  cat("### 描述统计\n")
  stats <- round(summary(df[[col_name]]), 2)
  cat(paste(names(stats), stats, sep = ": ", collapse = "<br>"))
  cat("\n\n")
  
  # 绘制直方图并输出
  cat("### 分布直方图\n")
  p <- ggplot(df, aes(x = .data[[col_name]])) +
    geom_histogram(bins = 15, fill = "#2c3e50", alpha = 0.7) +
    labs(title = sprintf("%s 分布", col_name), x = col_name, y = "频数") +
    theme_minimal()
  print(p)
  
  # 输出折叠区块的闭合标签
  cat("\n</details>\n\n")
}

### 关键细节说明
- `results='asis'`：告诉R Markdown不要把输出内容转义，直接渲染成HTML，这样<details>标签才能生效。
- `.data[[col_name]]`：ggplot2中引用动态列名的正确方式，避免非标准求值的问题。
- `print(p)`：循环里的ggplot对象不会自动显示，必须用`print()`强制输出图形。
- `cat()`的内容要注意换行（`\n`），保证Markdown和HTML标签的格式正确，避免内容挤在一起。

这样运行Rmd后，每一列都会生成一个独立的折叠区块，点击就能展开看到对应的分析和图表，完全不用手动重复写代码。

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