在单独的页面上插入许多图像，并在 rmarkdown 中使用独特的标题

Question

我想在每个页面上插入一个不同的图像（.pdf），并带有自己独特的标题。 我尝试过在某些页面上放置多个图像和标题，或者（使用下面的代码）将图像放在自己的页面上，但不允许从环境中的矩阵中提取标题（图像 label 出现为“不”）。 “x6”是一个矩阵，其中包含我想用作标题的文本。

有任何想法吗？

TIA

---
title: "Title"
geometry: margin=1.25cm 
output: 
  pdf_document:
    keep_tex: yes
    fig_caption: true
fontfamily: arev     

header-includes:
  \AtBeginDocument{\let\maketitle\relax}
  \usepackage{caption}
  \captionsetup[figure]{labelformat=empty}
  \usepackage[font={small}]{caption}
  \usepackage[maxfloats=256]{morefloats}
  \maxdeadcycles=1000
fontsize: 10pt
#sansfont: Calibri Light

---
---
{r, echo=FALSE,warning=FALSE}
library(staplr)
library(readtext)
library(stringr)
library(formatR)
x <- readtext("mptext.docx")
x2 <- str_split(x,"Slide ")
#x3$slide <- paste("Slide ",1:nrow(x3),sep = "")
x3 <- (matrix(unlist(lapply(unlist(x2)[1:10], function(y) str_sub(unlist(y),end = -2,start = 3))),nrow=length(lapply(unlist(x2)[1:10], function(y) str_sub(unlist(y), end = -2,start = 5))),byrow=TRUE))
x4 <- (matrix(unlist(lapply(unlist(x2)[11:100], function(y) str_sub(unlist(y),end = -2,start = 4))),nrow=length(lapply(unlist(x2)[11:100], function(y) str_sub(unlist(y), end = -2,start = 4))),byrow=TRUE))
x5 <- (matrix(unlist(lapply(unlist(x2)[101:251], function(y) str_sub(unlist(y),end = -2,start = 5))),nrow=length(lapply(unlist(x2)[101:251], function(y) str_sub(unlist(y), end = -2,start = 5))),byrow=TRUE))

x6 <- rbind(x3,x4,x5)
x6 <- as.matrix(x6[-1])
---
---
{r,results='asis',echo=FALSE}

library(knitr)
flist <- list.files("./ind_pdf2")
for (i in flist[1:50]){
cat(paste("![",(x6[i]),"](", i, ")\n\n\\pagebreak"))
 
}
---

如果我将最后一行(x6[i])中的第一个 i 更改为 1 (x6[1]) ，我可以让图像出现在单独的页面上，但每个图像都会重复第一个标题/标签。

Answer 1

在修改了这个之后，我想出了最后一个代码块的以下内容。

library(knitr)
flist <- list.files("./ind_pdf2")
counter <- 0
for (i in flist[1:50]){
counter <- counter + 1
cat(paste("![",(x6[counter]),"](", i, ")\n\n\\pagebreak"))
 
}