Question

我有以下问题。我已将多个csv文件导入到我的工作目录中。非常感谢任何帮助

files
[1] "sept2010.csv__001.csv" "sept2010.csv__002.csv" "sept2010.csv__003.csv" "sept2010.csv__004.csv""sept2010.csv__005.csv" "sept2010.csv__006.csv"

这里我有200多个csv文件。如果我用魔杖打开文件，我可以用

完成

data<-rbind(sept2010.csv__001.csv,sept2010.csv__002.csv) # It is time consuming to rbing 200 files.

当我尝试使用以下命令打开文件时

myfiles = do.call(rbind, lapply(files, function(x) read.csv(x, stringsAsFactors = FALSE)))

我收到错误消息：

Error in file(file, "rt") : cannot open the connection

当我尝试以下操作时：

 data<-do.call("rbind", lapply(files, read.csv, header = TRUE))

我收到相同的错误消息

如果我尝试手动打开文件：

folder <- "C:/Users/NewPap/Desktop/DATA/test"     
file_list <- list.files(path=folder, pattern="*.csv")
for (i in 1:length(file_list)){
  assign(file_list[i], 
     read.csv((paste(folder, file_list[i], sep='')))
   )}

我得到了同样的错误

我不确定我做错了什么。非常感谢任何帮助

Answer 1

如果您的所有文件都在您的工作目录中，那么

lapply(grep(".csv",list.files(full.names=T),value="TRUE"),read.csv)

应该打开列表中的所有CSV文件（每个文件内容都在列表的元素中）。

如果所有CSV文件的列数相同，则

do.call("rbind",lapply(grep("csv",list.files(full.names=T),value="TRUE"),read.csv))

将生成包含所有CVS文件的单个数据框。

Answer 2

folder <- "C:/Users/NewPap/Desktop/DATA/test"     
files <- list.files(path=folder, pattern="*.csv")

试试这个：

data = Map(f = read.csv,files,header=T)
Reduce(function(x,y){rbind(x,y)},data)

从工作目录中打开文件

2 个答案: