R同时保存png/pdf等格式图片

R怎么同时保存png/pdf等多种格式的图片？

如果是ggplot对象，用ggsave用两下就行，如果不是呢？

png/pdf()组合dev.off()是通常保存方法，但一个组合只能保存一个图片。要想保存多个图像，生成图片的对象需要多次生成，要是一个简单的作图脚本还好，复制粘贴就行，如果是很长很复杂的作图脚本呢？如果是循环批量作图呢？

非ggplot对象绘图且同时生成png和pdf等矢量图，这个需求在流程开发中很常见吧，所以还是有必要了解下以下方法：

pdf("test.pdf")
a<-dev.cur()   #记录pdf设备
png("test.png")
dev.control("enable")

plot(sin, -pi, 2*pi)  #绘图

dev.copy(which=a)  #复制来自png设备的图片到pdf
dev.off()
dev.off()