R：两级文件循环读入csv文件

一、处理需求

合并这些文件下的所有csv文件，并且新增一级文件字段名和二级文件字段名

  

 

二、实现需求

#设置路径

setwd("D:\\Desktop\\source2")

result_file <- data.frame()

for(i in list.files(".")){#i是文件名

  fold_name<-as.character(i)# 文件夹名，用于一级文件名的赋值

  setwd(paste0(getwd(),"\\",i))

  for(j in list.files(".",".csv")){#j是文件名

    file_name<-as.character(j)# 文件夹名，用于二级文件名的赋值

    temp_file<-read.csv(j,stringsAsFactors = F)

    temp_file<-transform(temp_file,"文件夹"=fold_name,"文件名"=file_name)#新增两列，即文件名来源标识

    #上面一句也可以这样temp_file<-dplyr::mutate( temp_file, `文件夹名` = fold_name , `文件名` = file_name )

    result_file<-rbind(result_file,temp_file)#追加文件内容

    rm(temp_file)#删除临时变量

  }#第二个for内容

  setwd("D:\\Desktop\\source2")#设回第一个for的原路径

}

write.csv(result_file,"all.csv",row.names = F)#读出最终的合并文件