setwd("G:/AllRGraphs") #选取储存目录，建议和R工作表分开> future=paste("position",".jpg") #通过paste将文件名和后缀连接起来> jpeg(file=future)> plot(x$position~x$date[orderdate])> dev.off()#图片position.jpg就自动存到那个文件夹底下了