读取文件时可以不用写文件名而使用弹窗选择的方式
a<-read.csv(file.choose(),header = T)
之后会跳出选择文件的窗口
write.csv(rule,file.choose())
同上