写操作系统写多了，感觉简书很有意思 写点别的玩玩。

之前需要从电脑中读入大约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)

}

```