R 批量处理PDF文件--PNG/JPG文件

在进行R绘图时，我们一般首先会考虑出PDF形式图片，可修改编辑，可当我们文章发表时需要用到高清PNG或JPG文件，难道每个图片都需要用软件转化吗？--实在是耗费精力，这里博主推荐一个包pdftools，可用于转化PDF文件~~

话不多说，上代码

rm(list = ls())
library(tidyverse)
library(pdftools)

setwd("D:/R.result/2.He/ww2023.9019_merge/picture") 

fileName <- dir()
dir.create("results")
pdf_list <- list()
n = 0
for(i in 1:length(fileName)){
    if(str_detect(fileName[[i]],".pdf")){
        n = n +1
        
        pdf_list[[n]] <- pdf_render_page(fileName[[i]],
                                         page = 1,
                                         dpi = 400)
        jpeg::writeJPEG(pdf_list[[n]],
                      target = paste0("results/",n,".jpg"))
    }
}
 

dpi是图片清晰度，大家可以调整，这个代码转化成JPG文件，也可转化PNG文件，换一下代码：

        jpeg::writeJPEG(pdf_list[[n]],
                      target = paste0("results/",n,".jpg"))

成：

png::writeJPEG(pdf_list[[n]],
                      target = paste0("results/",n,".png"))

就可，这时候输出的结果在：results文件夹中，大家可换成自己需要的文件夹名称。

挺清晰的，无论放大还是缩小，好啦~这次代码就分析这里啦，希望对大家有所帮助