写操作系统写多了，感觉简书很有意思 写点别的玩玩。
之前需要从电脑中读入大约20个excel文件，然后新建20个数据框，一个一个的读入再新建数据库实在是麻烦 好在找到了批量建立数据框的方法。
```
fl<-list.files("C:/Users/lenovo/Desktop/数据")
fl读取文件夹中文件的名字
for(i in fl){
pa<-paste0("C:/Users/lenovo/Desktop/数据/",i)
x<-fread(pa)
assign(i,x)
}
然后建立一个for循环 一个一个的提取excel文件名字，利用assign来赋值建立数据框
assign第一个参数是数据框名，类型是字符串，第二个参数是数据框变量名，再运用assign时还是要新建数据框 但是这里只用一个x就好了。
fread是data.table里的读取文件函数 类似于read.csv 读取速度比较快。
这样就可以批量建立数据框啦
下面附上一个批量修改名字：
for(i in fl)
{
print(i)
if(ncol(get(i))==5)
{
print(5)
assign(i,`colnames<-`(get(i),c("job_name","job_saray","job_space","job_ex","job_ed")))
}
##tmp <- get(paste("p", i, sep=""))
##print(tmp)
}
```
