在多個文件上使用lapply和read.csv（在R中）

Question

我想這是一個初學者的問題，但我還沒有找到答案或弄清楚我做錯了什么。

我正在嘗試使用以下方法讀取存儲在單獨目錄中的20個CSV文件：

setwd("./Data")
filenames <- list.files()  
All <- lapply(filenames,function(i){
  i <- paste(".\\",i,sep="")
  read.csv(i, header=TRUE, skip=4)
})

我收到以下錯誤：

Error in file(file, "rt") : cannot open the connection
In addition: Warning message:
In file(file, "rt") :
  cannot open file '.\filename.csv': No such file or directory

其中filename代表我文件夾中第一個文件的名稱。

提前致謝！

Answer 1

嘗試刪除： i <- paste(".\\\\",i,sep="")

read.csv應該可以正常使用list.files(full.names=TRUE)輸出

setwd("./Data")
filenames <- list.files(full.names=TRUE)  
All <- lapply(filenames,function(i){
  read.csv(i, header=TRUE, skip=4)
})