如何自动化生成含500+图片的Rmarkdown/Xaringan演示幻灯片？

问题背景 #

拥有500多张.tif格式图片，需批量转成带标注的PNG，并自动生成标准化Xaringan幻灯片，每张幻灯片对应一张图片，底部显示子文件夹名和图片名作为脚注。此前的循环生成幻灯片代码无法正常工作。

步骤1：修正图片预处理代码 #

原代码中all_images<-k会导致列表仅保留最后一张图，需改为列表追加方式，同时统一输出路径：

library(magick)
library(tidyverse)
library(magrittr)

# 定义路径
path <- "figures/stackoverflow"
output_path <- "figures/stackoverflow_pngs"

# 创建输出目录
if (!dir.exists(output_path)) {
  dir.create(output_path, recursive = TRUE)
} else {
  message("目录已存在")
}

# 获取所有tif文件
image_files <- list.files(
  path = path,
  pattern = "\\.tif$",
  recursive = TRUE,
  full.names = TRUE
)

# 提取子文件夹名和图片名
by_who <- str_remove(dirname(image_files), paste0("^", path, "/"))
clean_names <- str_remove(basename(image_files), "\\.tif$")

# 批量处理图片并保存
all_images <- list()
for (i in seq_along(image_files)) {
  img <- image_read(image_files[i]) %>%
    image_contrast(sharpen = 2) %>%
    image_normalize() %>%
    image_enhance() %>%
    image_annotate(
      boxcolor = "pink",
      text = paste("Made by:", by_who[i], "--", clean_names[i]),
      color = "purple",
      font = "Comic Sans MS",
      style = "italic",
      size = 30,
      weight = 500
    ) %>%
    image_convert(format = "png")
  
  # 保存图片
  image_write(
    img,
    path = file.path(output_path, paste0(clean_names[i], ".png")),
    density = 300,
    format = "png"
  )
  
  all_images[[i]] <- img
  message(paste("处理完成：", clean_names[i]))
}

步骤2：自动生成Xaringan幻灯片 #

在Rmarkdown/Xaringan文档中，使用results='asis'参数的代码块直接输出幻灯片结构，确保生成的Markdown被正确解析：

方式1：在Rmd文档内直接生成 #

在你的Xaringan Rmd文件中插入以下代码块：

```{r generate_slides, echo=FALSE, results='asis'}
# 定义PNG文件路径
png_files <- file.path(output_path, paste0(clean_names, ".png"))

# 循环生成每张幻灯片
for (i in seq_along(png_files)) {
  # 幻灯片分隔符
  cat("\n---\n")
  # 幻灯片样式
  cat('class: inverse\n')
  # 居中显示图片（限制高度避免溢出）
  cat(paste0('<center><img src="', png_files[i], '" style="max-height: 70vh;" /></center>\n'))
  # 脚注
  cat(paste0('  .footnote[Sampled by: ', by_who[i], ' -- ', clean_names[i], ']\n'))
}

### 方式2：生成独立Markdown片段再导入
如果需要单独生成幻灯片内容文件，可运行以下代码将内容写入`slides_fragment.md`，之后在主Xaringan Rmd中导入：

```r
# 生成幻灯片片段文件
sink("slides_fragment.md")
for (i in seq_along(png_files)) {
  cat("\n---\n")
  cat('class: inverse\n')
  cat(paste0('<center><img src="', png_files[i], '" style="max-height: 70vh;" /></center>\n'))
  cat(paste0('  .footnote[Sampled by: ', by_who[i], ' -- ', clean_names[i], ']\n'))
}
sink()

然后在主Rmd中添加：

```{r, echo=FALSE, results='asis'}
knitr::read_chunk("slides_fragment.md")

## 关键注意事项
- 路径一致性：所有图片路径需相对于Rmd文档根目录，避免绝对路径导致渲染错误。
- 图片尺寸控制：通过`style="max-height: 70vh;"`限制图片高度，防止超出幻灯片范围。
- `results='asis'`参数：必须添加此参数，才能让R代码输出的Markdown被knitr正确解析为幻灯片结构。

内容的提问来源于stack exchange，提问作者Hammao