如何在Rmarkdown的for循环中嵌入标题与图表？代码不执行求解

问题根源 #

你用cat输出的代码块只是纯文本内容，Rmarkdown编织时不会主动解析并执行这些动态生成的代码块，只会原样显示；另外你代码里的geom_plot()是错误写法，应该改成geom_point()，否则绘图会报错。

解决方案 #

以下两种方法都能实现你要的「循环生成标题+对应图表」的效果：

方案一：直接在循环中生成标题和图形（最简单）

给R代码块加上results='asis'选项，让cat输出的markdown标题被正确解析，同时直接执行绘图代码生成图形：

---
output: html_document
---

library(ggplot2)

vec <- c("cyl", "disp", "hp")

for (i in seq_along(vec)) {
  # 输出markdown一级标题
  cat(paste("#", vec[i], "\n\n"))
  # 动态绘制图形，用.data[[var]]是ggplot2推荐的动态列引用方式
  p <- ggplot(mtcars, aes(x = mpg, y = .data[[vec[i]]])) + 
    geom_point()
  print(p)
  cat("\n\n")
}

方案二：使用knit_expand生成动态代码块（适合复杂场景）

如果需要更灵活的动态代码生成逻辑，可以用knitr的模板扩展功能：

---
output: html_document
---

library(ggplot2)
library(knitr)

vec <- c("cyl", "disp", "hp")

# 为每个变量生成对应的markdown+代码模板
templates <- lapply(vec, function(var) {
  knit_expand(text = "
# {{var}}

```{r}
ggplot(mtcars, aes(x = mpg, y = {{var}})) + geom_point()

")
})

cat(knit_child(text = unlist(templates), quiet = TRUE))

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