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