Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/64.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将多个.csv文件导入到R中,并添加具有文件名的新列_R_Csv - Fatal编程技术网

将多个.csv文件导入到R中,并添加具有文件名的新列

将多个.csv文件导入到R中,并添加具有文件名的新列,r,csv,R,Csv,我有80个单独的.csv文件,它们的列和标题与我能够使用以下命令导入和rbind为一个数据帧的列和标题相同: file_names <- dir("~/Desktop/data") df <- do.call(rbind,lapply(file_names,read.csv)) 文件名这应该可以做到: file_names <- dir("~/Desktop/data") df <- do.call(rbind, lapply(file_names, funct

我有80个单独的.csv文件,它们的列和标题与我能够使用以下命令导入和rbind为一个数据帧的列和标题相同:

 file_names <- dir("~/Desktop/data") 
 df <- do.call(rbind,lapply(file_names,read.csv))
文件名这应该可以做到:

file_names <- dir("~/Desktop/data") 
df <- do.call(rbind, lapply(file_names, function(x) cbind(read.csv(x), name=strsplit(x,'\\.')[[1]][1])))
文件名这应该可以做到:

file_names <- dir("~/Desktop/data") 
df <- do.call(rbind, lapply(file_names, function(x) cbind(read.csv(x), name=strsplit(x,'\\.')[[1]][1])))

file\u names Hey@mpjdem我喜欢你的做法,但我得到了以下错误。知道为什么/如何解决它吗?谢谢“头中出错:参数类型无效”是否有助于在
read.csv()
调用中显式设置
header=TRUE
?(假设您确实有一个标题;否则
header=FALSE
)不,我仍然会得到相同的错误。我有一个头球;我想不出来@mpjdemHey@mpjdem我喜欢你的想法,但是我得到了以下错误。知道为什么/如何解决它吗?谢谢“头中出错:参数类型无效”是否有助于在
read.csv()
调用中显式设置
header=TRUE
?(假设您确实有一个标题;否则
header=FALSE
)不,我仍然会得到相同的错误。我有一个头球;我想不出来@mpjdem