rmarkdown中函数的多个绘图输出

Question

我有一个生成 2 个图表对象的函数，我想在一个 rmarkdown 文件中使用这个函数并将它编织起来，以便获得一个 HTML 报告。我面临的问题是，当我使用这个函数时，我得到的输出看起来像这样：

这里的“Plot1”和“Plot2”是实际渲染的图。我需要进行哪些更改才能获得以下内容？

情节1 情节2

这是我的 R-markdown 文件中的代码块。

```{r OverallGRP106_trended_fav, echo=FALSE, fig.align="center", message=FALSE, warning=FALSE, paged.print=TRUE}
trended_fav(psc_surv,"Overall","GRP106")
```

trend_fav函数的返回语句如下：

return(list(plot(p4), plot(p1)))

Answer 1

我想如果你把函数的输出分配给一个变量然后单独调用变量的元素就可以了，像这样：

---
output: html_document
---

```{r setup, include=FALSE}
library(ggplot2)
trended_fav <- function() {
  p4 <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
  p1 <- ggplot(txhousing, aes(year, median)) + geom_point()
  plot_list <- list(p4,p1)
  return(plot_list)
}
a <- trended_fav()
```

## First report

Here it is:

```{r}
a[1]
```

## Second report

This one is even better:

```{r}
a[2]
```