使用R语言图片JPG/PNG转PDF_批量_快速（成功）

1、安装magick

2、使用文件目录

      此处要注意反斜杠

3、for循环

4、把转换后的照片放在相同目录

library(magick)

folder_path <- "C:/Users/Administrator/Desktop/chatgpt"
jpg_files <- Sys.glob(file.path(folder_path, "*.jpg"))

for(file in jpg_files) {
  # 读取图片
  image <- image_read(file)
  
  
  # 创建PDF文件名（使用相同的基本文件名，但扩展名为.pdf）
  pdf_file <- sub("\\.jpg$", ".pdf", file)
  
  # 将图片保存为PDF
  image_write(image, pdf_file, format = "pdf")
}