在进行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文件夹中,大家可换成自己需要的文件夹名称。
挺清晰的,无论放大还是缩小,好啦~这次代码就分析这里啦,希望对大家有所帮助