如何在Rmarkdown中的for循环中嵌入标题和图表

mbjcgjjk  于 2023-11-14  发布在  其他
关注(0)|答案(1)|浏览(115)

我想将标题和图表嵌入到Rmarkdown文档中。我已经使用mtcars数据集和for循环完成了这一点。编织rmarkdown文档打印代码,而不是执行代码。请提供建议。

---
output: html_document
---

```{r echo=FALSE}
library(ggplot2)

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

 for (i in seq_along(vec)) {
  cat(paste("# ", vec[i], "\n"))
  cat(paste("```{r} \n"))
  
  cat(paste0("ggplot(mtcars, aes(x=mpg, y=",vec[i],")) + geom_plot()  \n" ))
  cat("```\n\n")
}
字符串
gtlvzcf8

gtlvzcf81#

不需要将绘图代码创建为字符串。此外,如果您想动态创建标题,请使用chunk选项results='asis'。最后请注意使用.data代词来使用作为字符串传递到aes()内部的列名。

---
output: html_document
---

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

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

for (i in vec) {
  cat(paste("# ", i, "\n"))

  p <- ggplot(mtcars, aes(x = mpg, y = .data[[i]])) +
    geom_point()

  print(p)

  cat("\n\n")
}
字符串

![](https://i.stack.imgur.com/Gs9mu.png)
的数据

相关问题