R語言批量建立資料框

寫作業系統寫多了，感覺簡書很有意思 寫點別的玩玩。

之前需要從電腦中讀入大約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)

}

```