之前遇到過要同時保存pdf和png的情況，因為是用ggplot2繪圖蝌借，所以就直接用ggsave兩次就可以了，但是如果是用低級繪圖plot的話指蚁，就要換種辦法了菩佑。下面介紹兩種
#把畫圖過程定義成函數(shù)，循環(huán)生成圖片
pca<-function(){plot(x,y)}#定義一個畫圖函數(shù)
pdf('pca.pdf')#建立圖片文件
pca()#調(diào)用畫圖函數(shù)
dev.off()#畫圖結(jié)果輸入文件
png('pca.png')#下面同理
pca()#
dev.off()#
#使用dev.copy()復(fù)制圖形
pdf('pca.pdf')#建立圖片文件
a<-dev.cur()#記錄pdf device
png('pca.png')
dev.control('enable')#打開圖形設(shè)備控制
plot(x,y)#畫圖
dev.copy(which=a)#復(fù)制png的圖形給pdf
dev.off()#保存png
dev.off()#保存pdf
