如何使用循环在rmarkDown中渲染多个图和表

Question

我正在研究rmarkDown文档，以显示一些图和表。该代码正常运行，但我发现有很多图和表格，因此添加它们的过程确实很大。我的代码是下一个（我需要渲染到Word文档）：

---
title: "My document"
output: word_document
date: '2022-06-28'
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Analysis

```{r t1}
library(ggplot2)
library(dplyr)
library(knitr)
#Data
data("iris")
iris
#Create list for plots and tables
List <- split(iris,iris$Species)
#Create plots
plotfun <- function(x)
{
  y <- ggplot(x,aes(x=Sepal.Length,y=Sepal.Width))+
    geom_point()
  return(y)
}
#Create tables
tablefun <- function(x)
{
  y <- x %>% group_by(Species) %>%
    summarise_all(sum)
  return(y)
}
#Create list of plots and tables
Lplots <- lapply(List, plotfun)
Ltables <- lapply(List, tablefun)
```

直到没关系。当我需要打印图和表格时，出现了麻烦。我使用此代码：

```{r,echo=FALSE,warning=FALSE,message=FALSE,fig.cap=paste0("Figure 1","My plot"),fig.pos='H',fig.align='center',out.width='100%',fig.height=5,fig.width=9}
Lplots[[1]]
```

```{r,echo=FALSE,message=FALSE,warning=FALSE}
kable(Ltables[[1]],caption = paste("Table 1: Summary"),align = c('l',rep('c',4)))
```

但是，如果我有100个图和表，那将是非常广泛的。

有人可以帮助我如何做这样的事情：

for(i in 1:length(Lplots))
{

```{r,echo=FALSE,warning=FALSE,message=FALSE,fig.cap=paste0("Figure ",i,"My plot"),fig.pos='H',fig.align='center',out.width='100%',fig.height=5,fig.width=9}
Lplots[[i]]
```

```{r,echo=FALSE,message=FALSE,warning=FALSE}
kable(Ltables[[i]],caption = paste("Table",i," : Summary"),align = c('l',rep('c',4)))
```
}

非常感谢。

Answer 1

假设您想在rmarkDown中打印图和表，而不是保存，则可以。 ）和3。将结果分配给某些虚拟对象（“抑制”）。如果您不这样做，它将打印出丑陋的输出，例如null或组标题，就好像是控制台输出一样。您需要在每个打印呼叫中分配给虚拟对象并分配整个功能调用。我猜您希望您的桌子和绘制组合在一起，因此您可以将它们放在一个循环中。

{r,echo=FALSE,warning=FALSE,message=FALSE,fig.pos='H',fig.align='center',out.width='100%',fig.height=5,fig.width=9, results='asis'}

lapply(1:length(List), function(i) {
  print(plotfun(List[[i]]) +
    ggtitle(paste("My Plot", i)) -> suppress)
  print(kable(tablefun(List[[i]]),caption = sprintf("Table %s: Summary", i),align = c('l',rep('c',4)))) -> suppress
  }) -> suppress

我在代码块和印刷图中删除了您的图caption选项，并动态地删除了表格。这应该编织到任何所需的输出中。

Answer 2

您应该能够通过将循环放入代码块中来保存图。

for(i in length(lPlots)){
    ggsave(fname,lPlots[[i])
}

至少对于图的另一个有用的选择是使用pwalk（），如下所示 https://cmdlinetips.com/2022/06/create-a-liste-a-list-obgplot-ggplot-objects-and-save-and-save-save-save-them-as-as-files/