[R]同时保存png与pdf

（1）对应一些R包的图片，R原生绘图的方法

#create images device
pdf(paste(args[3],".karyoplote.pdf",sep=""),width=12,height=10)   #先存一个pdf 要保存的文件名

pdf_dev<-dev.cur()   #save a pdf device obj in variable #保存设备到一个变量里

png(paste(args[3],".karyoplote.png",sep=""),res =300,units = "in",width=12,height=10)
dev.control("enable")                         #设备dev控制开关打开

kp <- plotKaryotype(genome = genome_version,chromosomes=paste0("chr", c(1:22,"X")))
#画图对象存到变量里

kp  执行对象内容

dev.copy(which=pdf_dev)  #拷贝之前备份的 对象到现在的设备中
dev.off()
dev.off()

（2）ggplot对象
ggsave()

参考：
https://www.cnblogs.com/jessepeng/p/11105072.html