如何以程序方式将绘图嵌入到RMarkdown的选项卡中？ [英] How to embed plots into a tab in RMarkdown in a procedural fashion?

问题描述

我可以仅使用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],"
")
}
```

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

---

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

扩展以上内容，我尝试生成生成初始输出的标记，但绘图生成失败(在内联标记和预览中)。

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

也许我错过了关于降价的更细微之处？我尝试了使用cat(甚至不使用)cat的各种模式

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

推荐答案

我尝试了一下，找到了解决方案。您必须在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],"
")
  print(gg0[[i]])
  cat('

')
}
```

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

这篇关于如何以程序方式将绘图嵌入到RMarkdown的选项卡中？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！