如何在Quarto中自动化生成章节标题与代码块

在Quarto中自动化生成标题与代码块的实现 #

通过带results='asis'参数的R代码块，可自动遍历标题向量生成对应格式的内容，无需手动逐个编写：

1. 在Quarto文档中插入如下R代码块（注意开头的参数设置）：

# 定义目标标题向量
x <- c("title1", "title2", "title3")

# 替换为你实际的figure函数
figure <- function(title) {
  # 示例：生成带标题的图形，实际替换为你的绘图逻辑
  ggplot2::ggplot(data.frame(val = 1:5), ggplot2::aes(x = val, y = val)) +
    ggplot2::geom_point() +
    ggplot2::ggtitle(title)
}

# 循环生成二级标题和代码块
for (title in x) {
  # 输出二级标题的Markdown代码
  cat(paste0("## ", title, "\n\n"))
  # 输出调用figure的R代码块
  cat("```r\n")
  cat(paste0("figure(\"", title, "\")\n"))
  cat("```\n\n")
}

2. 给代码块添加results='asis'参数，确保R输出的内容被Quarto当作Markdown渲染：
   （实际使用时只需将代码块开头写为{r, results='asis'}即可）

运行后，Quarto会自动渲染出以下内容：

• title1 #

• 包含figure("title1")的R代码块

• title2 #

• 包含figure("title2")的R代码块

• title3 #

• 包含figure("title3")的R代码块

如果你的figure函数用于生成图形，Quarto会自动捕获并渲染对应的图形输出，无需额外操作。

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