之前遇到过要同时保存pdf和png的情况，因为是用ggplot2绘图，所以就直接用ggsave两次就可以了，但是如果是用低级绘图plot的话，就要换种办法了。下面介绍两种
#把画图过程定义成函数，循环生成图片
pca<-function(){plot(x,y)}#定义一个画图函数
pdf('pca.pdf')#建立图片文件
pca()#调用画图函数
dev.off()#画图结果输入文件
png('pca.png')#下面同理
pca()#
dev.off()#
#使用dev.copy()复制图形
pdf('pca.pdf')#建立图片文件
a<-dev.cur()#记录pdf device
png('pca.png')
dev.control('enable')#打开图形设备控制
plot(x,y)#画图
dev.copy(which=a)#复制png的图形给pdf
dev.off()#保存png
dev.off()#保存pdf
