绘图流程
#打开新窗口
dev.new()
#开始绘图
pdf/wein.metafile/png/jpeg/bmp/tiff/xfig/postscript("xxx.xx")
#修改图形参数
#copy current settings
opar <- par(no.readonly=TRUE)
#设置绘图参数
par(pch=paint character 0-24,cex=zoom rate, lty=line type 1-6, lwd=line width zoom rate)
#绘制代码
...
#改回默认绘图参数
#par(opar)
#切换回控制台
dev.off()