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()