RMarkdown Beamer 制作幻灯片标题并循环添加数字

RMarkdown Beamer make slide titles and add figures in loop

我是 RMarkdown 和 Beamer 的新手。我正在尝试制作一组​​幻灯片,其中每张幻灯片都包含一个 JPG。我有十几个要循环。我如何在循环中设置它?

这是 RMD 文件:

---
title: 'slideshow'
output:
  beamer_presentation:
    theme: "AnnArbor"
---

# Introduction

## Blah

- Text
- Here
- Etc.

# Images

## pic_1

```{r echo=FALSE, out.width = '100%'}
knitr::include_graphics("../images/modelA_pic_1.jpg")
```

## pic_2

```{r echo=FALSE, out.width = '100%'}
knitr::include_graphics("../images/modelA_pic_2.jpg")
```

## pic_3

```{r echo=FALSE, out.width = '100%'}
knitr::include_graphics("../images/modelA_pic_3.jpg")
```

## pic_4

```{r echo=FALSE, out.width = '100%'}
knitr::include_graphics("../images/modelA_pic_4.jpg")
```

我知道我可以将幻灯片标题和图形路径放入数据框中,但我不确定如何在 RMarkdown 中执行此操作以及如何遍历它以构建幻灯片标题并插入图像。

title <- c('pic_1', 'pic_2', 'pic_3', 'pic_4')
fpath <- c('modelA_pic_1.jpg', 'modelA_pic_2.jpg', 'modelA_pic_3.jpg', 'modelA_pic_4.jpg')
fpath <- paste0("../images/", fpath)
myfiles <- data.frame(title, fpath)

根据已接受的答案更新

以下是我最终用于 Rmd 的内容。 This page 解释了 xmpmulti 包的基础知识。

对于此设置,我的 RMD 在一个文件夹中;图像在一个文件夹中 (../),然后在一个名为 temp (../temp/) 的文件夹中。此文件夹中的图像命名为 test-1.pngtest-2.png

---
title: 'slideshow'
output:
  beamer_presentation:
    theme: "AnnArbor"
header-includes:
  - \usepackage{xmpmulti}
---

# Introduction

## Blah

- Text
- Here
- Etc.

```{=latex}
\end{frame}
\section{Images}
\begin{frame}
\frametitle<1>{picture 1}
\frametitle<2>{picture 2}
\centering
\multiinclude[format=png,start=1,end=2,graphics={width=1\textwidth}]{../temp/test}
\end{frame}
\begin{frame}
```

some test

假设你的图像被命名为 pic-1.png 等,那么 beamer 有一种自动的方式通过 xmpmulti 包循环图像:

---
title: 'slideshow'
output:
  beamer_presentation:
    theme: "AnnArbor"
    keep_tex: true
header-includes:
  - \usepackage{xmpmulti}
---

# Introduction

## Blah

- Text
- Here
- Etc.

```{=latex}
\end{frame}
\section{Images}
\begin{frame}
\frametitle<1>{picture 1}
\frametitle<2>{picture 2}
\frametitle<3>{picture 3}
\centering
\multiinclude[format=png,start=1,end=3,graphics={width=.6\textwidth}]{pic}
\end{frame}
\begin{frame}
```

some test