在單獨的頁面上插入許多圖像，並在 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"))
 
}