求推荐R语言中可合并PDF并添加左上角自定义标题的包

你可以结合pdftools（处理PDF读取/渲染）和ggplot2（添加自定义标题）完成这个任务，这套组合能直接在R环境内完成PDF页面的标题添加与合并，无需额外依赖外部工具。

步骤说明 #

1. 安装依赖包
2. 遍历指定目录下的所有PDF文件
3. 对每个PDF的每一页添加左上角文件名标题
4. 合并所有处理后的页面为单个PDF

代码示例 #

# 安装所需包（首次运行时执行）
install.packages(c("pdftools", "ggplot2", "grid", "magrittr"))

# 加载包
library(pdftools)
library(ggplot2)
library(grid)
library(magrittr)

# 配置参数：替换为你的PDF目录路径和输出文件名
target_dir <- "./your_pdf_folder"
output_file <- "merged_with_titles.pdf"

# 获取目录下所有PDF文件（仅匹配后缀为.pdf的文件）
pdf_files <- list.files(target_dir, pattern = "\\.pdf$", full.names = TRUE)

# 存储处理后的页面
processed_pages <- list()

# 循环处理每个PDF文件
for (file_path in pdf_files) {
  # 提取纯文件名（不含路径和后缀）作为标题文本
  title_text <- basename(file_path) %>% tools::file_path_sans_ext()
  
  # 获取当前PDF的总页数
  total_pages <- pdf_info(file_path)$pages
  
  # 处理每一页
  for (page_num in 1:total_pages) {
    # 渲染PDF页面为位图（dpi控制清晰度，数值越高越清晰但文件越大）
    page_raster <- pdf_render_page(file_path, page = page_num, dpi = 300)
    
    # 用ggplot添加左上角标题，保留原页面内容
    annotated_page <- ggplot() +
      annotation_raster(page_raster, xmin = 0, xmax = 1, ymin = 0, ymax = 1) +
      annotate("text", 
               x = 0.05, y = 0.95,  # 左上角位置（相对页面比例）
               label = title_text,
               hjust = 0, vjust = 1,  # 对齐方式
               size = 5, color = "black", fontface = "bold") +  # 样式自定义
      theme_void()  # 移除多余的绘图元素
    
    # 记录处理后的页面
    processed_pages[[length(processed_pages) + 1]] <- recordPlot(annotated_page)
  }
}

# 导出合并后的PDF
pdf(output_file, width = 8.5, height = 11)  # 尺寸匹配常规A4/Letter页面，可按需调整
for (page in processed_pages) {
  replayPlot(page)
}
dev.off()

注意事项 #

• dpi参数：建议设置为300以保证清晰度，若文件过大可适当降低（如150）
• 页面尺寸：pdf()函数的width和height需匹配原PDF的实际尺寸，避免页面变形
• 标题样式：可修改annotate()中的size、color、fontface等参数自定义标题外观
• 若原PDF是矢量格式，转位图会丢失矢量特性，若需要保留矢量，可结合LaTeX模板处理，但需额外配置TeX环境

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