循环遍历 ggplots 列表并使用 Knitr 为每个图提供一个图形标题

Question

我正在使用ggplot2创建一系列图。每一个都是以编程方式命名的，我想使用这些名称为每个人提供自己的图形标题。我想从列表中提取名称并将它们动态传递给 fig.cap。

有没有办法做到这一点？这是一个 MCVE，您可以在列表和单个图之间切换以查看数字消失或显示：

---
output: pdf_document
---

```{r, include = FALSE}
library(ggplot2)
library(knitr)
opts_chunk$set(echo=FALSE)
```

```{r}
## Plot 1
listOfPlots <- list(
  # Plot 1
  ggplot(data = diamonds) +
    geom_point(aes(carat, price)),

  ## Plot 2
  ggplot(data = diamonds) +
    geom_point(aes(carat, depth))
)

names(listOfPlots) <- c("This is caption 1", "This is caption 2")
```


```{r, fig.cap = c("This is caption 1", "This is caption 2"), echo=TRUE}

listOfPlots

# listOfPlots$`This is caption 1`
# listOfPlots$`This is caption 2`
```

笔记：

• Yihui 和其他人说过（https://groups.google.com/forum/#!topic/knitr/MJVLiVyGCro），要在一个块中有多个图形并给它们一个图形标题，你需要有 echo=TRUE 因为内联数字和 pandoc 的东西。
• 我不想显示代码，数字的数量可能是可变的，所以我不想硬编码。有趣的是，即使 echo=TRUE，使用 ggplots 列表也不起作用。我必须单独调用每个 ggplot。

Answer 1

如果要给 R Markdown 中的图提供自己的标题，则图之间需要有空格。正如Yihui 在您的链接上所述，这里的技巧是在两个图像之间添加一些换行符。

```{r, fig.cap=c("Caption 1", "Caption 2")} 
listOfPlots[[1]]
cat('\n\n') 
listOfPlots[[2]]
``` 

请注意，双方括号仅用于返回绘图本身。

使用循环

假设您正在寻找一种更通用的方法，可以适用于任何长度的列表，我们可以使用循环自动创建图之间的换行符。请注意，results="asis"块头中需要：

```{r, fig.cap=c("Caption 1", "Caption 2"), echo=FALSE, results="asis"} 

for(plots in listOfPlots){
  print(plots)
  cat('\n\n') 
}

``` 

作为最后的提示，您可能希望直接在标题中使用列表的名称。语法{r, fig.cap = names(listOfPlots)}就能实现这一点。