将多份PDF绘图拼接为单张网格图时遇代码错误，求技术支持

错误根源 #

1. magick::image_read_pdf()不支持直接传入多文件路径向量，它单次仅能处理单个PDF，批量传参会触发“条件长度>1”的警告，最终导致文件读取失败。
2. 代码中name变量未定义，后续保存文件时会报错。
3. here::here("/Users/test/")用法错误：here是基于项目工作目录拼接路径的工具，无需传入完整绝对路径，这样写反而会导致路径解析异常。

修正后的代码 #

library(magick)
library(here)
library(purrr)

# 正确获取PDF路径：here按目录层级拼接，无需写绝对路径
pdffiles <- list.files(
  path = here("Users", "test"), # 若目标目录在项目根目录下，直接写here("test")即可
  recursive = TRUE,
  pattern = "\\.pdf$",
  full.names = TRUE
)

# 定义输出文件名前缀，可根据需求修改
name <- "combined_plots"

# 逐个读取PDF、合并图像序列、生成网格图并保存
map(pdffiles, image_read_pdf) %>%
  image_join() %>%
  image_montage(tile = "2x5", geometry = "x500+10+5") %>%
  image_write(
    path = here(paste(name, "_All.pdf", sep = "")),
    format = "pdf", # 格式名无需加圆点，直接写"pdf"
    quality = 100
  )

关键说明 #

• 用purrr::map循环读取每个PDF，规避一次性传多路径的参数不兼容问题。
• image_join()将多个独立图像对象合并成序列，才能被image_montage识别并生成网格。
• 运行前可先执行print(pdffiles)，确认获取到的是有效PDF文件路径，避免路径类错误。

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