R knit Markdown：For 循环内的输出图

我想创建一个自动针织报告，它将为我的数据框中的每个数字字段生成直方图。我的目标是在无需指定实际字段的情况下完成此操作（此数据集包含超过 70 个字段，我还想重用该脚本）。

我尝试了几种不同的方法：

• saving the plot to an object, p, and then calling p after the loop
  • 这仅绘制最终情节
• Creating an array of plots, PLOTS <- NULL, and appending the plots within the loop PLOTS <- append(PLOTS, p)
  • 在循环之外访问这些图根本不起作用
• 甚至尝试将每个保存到.png文件，但不想处理保存然后重新访问每个文件的开销

我恐怕无法理解情节设计的复杂性。

Question

如何使以下块将循环内的每个图输出到报告？目前，我能实现的最好结果是通过将其保存到对象并在循环外部调用该对象来输出最终的绘图。

R markdown 块使用knitr在 RStudio 中：

```{r plotNumeric, echo=TRUE, fig.height=3}
suppressPackageStartupMessages(library(ggplot2))
FIELDS <- names(df)[sapply(df, class)=="numeric"]
for (field in  FIELDS){
  qplot(df[,field], main=field)  
}
```

从这一点来说，我希望进一步定制剧情。

包裹住qplot in print.

knitr如果qplot在循环之外，但是（至少我安装的版本）没有在循环内部检测到这一点（这与 R 命令行的行为一致）。