如何以程序方式将绘图嵌入到 RMarkdown 的选项卡中？

Question

我可以仅使用 RMarkdown 的 {.tabset} 嵌入绘图

#### Heading  {.tabset}
##### Subheading 1
```{r, echo=F}
df[[1]]    
```

这会在预览窗格中生成带有指定图形的单个选项卡（df 是图形列表，调用 df[[i]] 会生成图形）（在 RStudio 中内联呈现所有图形）。

---

我可以使用 for 循环只生成选项卡。

```{r, results='asis', echo = FALSE}
for (i in 1:length(gg0)) {
  cat("##### ",q$Subheading[i],"\n")
}
```

这会产生所需的输出 - 副标题列中带有名称的选项卡。

---

但是，我一直在尝试使用 for 循环自己生成图表，类似于我手动编码时所做的那样。

扩展上述内容，我尝试生成产生初始输出的降价，但绘图无法生成（在内联降价和预览中）。

```{r, results='asis', echo = FALSE}
for (i in 1:length(gg0)) {
  cat("##### ",q$Subheading[i],"\n")
    cat('```{r, echo=F} \n')
    cat("gg0[[",i,"]]\n")
    cat('``` \n')
}
```

也许我错过了关于降价的更好点？我使用cat（甚至没有）尝试了各种模式

我更喜欢 RMarkdown 解决方案，但也欢迎其他解决方案。

Answer 1

我玩了一会儿，找到了解决方案。您必须在 asis 代码块中使用 print...

```{r}
library(ggplot2)
gg0 <- list()
gg0[[1]] <- ggplot(mtcars, aes(mpg, hp)) + geom_point()
gg0[[2]] <- ggplot(mtcars, aes(mpg, disp)) + geom_point()
gg0[[3]] <- ggplot(mtcars, aes(mpg, drat)) + geom_point()

headings <- c('hp','disp','drat')
```

#### Heading  {.tabset}
```{r, results='asis', echo = FALSE}
for (i in 1:length(gg0)) {
  cat("##### ",headings[i],"\n")
  print(gg0[[i]])
  cat('\n\n')
}
```

作为解释，cat 命令与results='asis' 一起为较低级别的标题生成降价代码，然后打印 ggplot 图。由于我们在父标题中使用了 `{.tabset}，它会在单独的选项卡中创建图表。

Answer 2

在 for 循环中同时添加 plot.new()、dev.off() 解决了在最后一个选项卡中添加所有图形的问题。查看完整解决方案here。