使用knitr在R中复制临时报告

首先，我是新的R编程人员。此外，我还发现一些话题非常接近我无法解决的问题，但最终对我没有帮助

我继承了一个报告，它以.png图像的形式将一些图形粘贴到文件夹中，然后将这些图像编织成word报告

我已经成功地自动化了someScriptIn.R部分，它能够分析.csv文件，找出需要分析的数据集数量，并正确设置标题、日期等。它生成的图像非常好

你必须知道，我想做的是有一个动态变化的报告，在数据集的数量，标题等方面，所以它不会是让我们说，每次3组图像。可能是1，也可能是10。这将取决于用户。此外，Series.title是在someScriptIn.R和Series.quarter中创建的变量

当我尝试将knitr与一个.rmd文件一起使用时，问题就开始了，该文件看起来像下面的代码

代码：

问题是如何使用for循环完成此过程，同时记住图形已经在文件夹中创建了图像？解决方案能解决我的问题吗？具体实现是什么？

使用“asis”块：

---

简化假设文件是

a1.png、a2.png、a3.png

您可以使用2个for循环和sprintf函数：

```{r, results='asis', echo=FALSE}
Series.title <- c("Group 1", "Group 2", "Group 3")
Series.quarter <- "SQ?"

for (i in 1:3) {
    cat(sprintf("%s %s Quarters Forecast \n\n", Series.title[i], Series.quarter))
    for (j in 1:3) {
        cat(sprintf("![](graph%i-%i.png) \n", j, i))
    }
}
```

---

谢谢你的聪明解决方案，这正是我想要做的：）

---
output: 
  word_document
---


```{r, results="asis", echo=FALSE}
cat("First part of report\n\n")
cat(paste0("![bb](a",1:3,".png)", sep="", collapse="\n\n"))
```

```{r, results='asis', echo=FALSE}
Series.title <- c("Group 1", "Group 2", "Group 3")
Series.quarter <- "SQ?"

for (i in 1:3) {
    cat(sprintf("%s %s Quarters Forecast \n\n", Series.title[i], Series.quarter))
    for (j in 1:3) {
        cat(sprintf("![](graph%i-%i.png) \n", j, i))
    }
}
```

Group 1 SQ? Quarters Forecast 

![](graph1-1.png) 
![](graph2-1.png) 
![](graph3-1.png) 
Group 2 SQ? Quarters Forecast 

![](graph1-2.png) 
![](graph2-2.png) 
![](graph3-2.png) 
Group 3 SQ? Quarters Forecast 

![](graph1-3.png) 
![](graph2-3.png) 
![](graph3-3.png)