r - 从 lapply 抑制 Rmarkdown 中的列表符号

Question

我正在使用 Rmarkdown 生成报告。其中一个步骤包括将 lapply() 与生成绘图的函数一起使用以生成多个绘图。该函数和 lapply 运行良好，但我得到了关于每个图之间列表中哪个元素的符号。

knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)

#{r pressure, echo=FALSE}
myPlotFun <- function(z){
      diamonds %>%
            filter(color == !!z) %>%
            ggplot(aes(x= carat, y = price))+
            geom_point()
}
myList <- c("E","D","H")
lapply(myList, myPlotFun)

我得到:

'## [ 1 ]

`##

`## [ 2 ]

如何隐藏绘图之间的列表符号(例如## [ 2 ])线？使用 include = FALSE 隐藏绘图和列表符号，这不是我想要的。我试过 warning = FALSE，但这没有帮助。

Answer 1

这些数字是 lapply 的产物。删除它们的最简单方法是使用 for 循环。否则你可以创建一个钩子(Hook)来删除除绘图之外的任何其他输出:

```{r}
def <- knitr::knit_hooks$get("output")
knitr::knit_hooks$set(output = function(x, options) {
  x <- def(x, options)
  ifelse(!is.null(options$suppress), gsub(pattern = "```.*```", "", x), x)
})
```

只需为相关 block 设置suppress = T。