解决的问题：需要读取某个大文件夹下所有子文件夹中的excel文件，并汇总，汇总文件中需要包含的2部分的信息：1.该条数据来源于哪个子文件夹；2.该条数据来源于哪个excel文件。最终，按照子文件夹单独保存汇总文件，或者只保存成一个汇总文件。

场景描述：抓取了各个APP的使用数据，分散地保存在各个文件夹中。文件格式如下：

第一级分类：文件夹名

第二级分类：文件夹下xlsx文件名

第三级分类：每个xlsx文件中每行(具体的每条数据)，但其中并没有该APP属于的二级分类和一级分类，需要为每条数据添加二级分类和一级分类，并最终汇总到一个文件中。

解决方法一：

#作用：读取每个文件夹下的excel，并将其合并成一个文件。

#共有3级：第一级：文件夹名，第二级：文件夹中的xlsx文件名，第三级：xlsx文件中的每行

#代码后面注释中若有：【修改】字样，则表示如果要在你机器上运行该段代码时，需要进行相应的修改。

##########方法一：最终单独保存在每个文件夹下

rm(list=ls())

setwd("E:/cnblogs") #设定工作目录【修改】

library(xlsx)

first_category_name = list.files("APP整理") #list.files命令得到"APP整理”文件夹下所有文件夹的名称【修改】

dir = paste("./APP整理/",first_category_name,sep="") #用paste命令构建路径变量dir,第一级目录的详细路径【修改】

n = length(dir) #读取dir长度，也就是：总共有多少个一级目录

n_sub

n_sub

n_sub

head(n_sub) #n_sub是每个一级目录(文件夹)下有多少个文件，也就是：有多少个二级目录，初始化为0，用于后面的操作

##########

for(i in 1:n){ #对于每个一级目录(文件夹)

b=list.files(dir[i]) #b是列出每个一级目录(文件夹)中每个xlsx文件的名称

n_sub[i]=length(b) #得到一级目录(文件夹)下xlsx的文件个数:n_sub

merge_1

dim(merge_1)

names(merge_1)

merge_1$second_category

merge_1$first_category

merge_1

for(j in 1:n_sub[i]){ #对于每个一级目录(文件夹)下的每个xlsx文件

new_1

names(new_1)

new_1

new_1$second_category

new_1$first_category

merge_1

}

write.xlsx(merge_1,paste(dir[i],'/merge.xlsx',sep=''),row.names = F,col.names= F)#单独保存在每个文件夹下

}

解决方法二：

##########方法二：最终得到一个汇总的xlsx文件，在每个文件夹下并没有保存单独的合并文件

rm(list=ls())

setwd("E:cnblogs") #设定工作目录【修改】

library(xlsx)

first_category_name = list.files("APP整理") #list.files命令得到"APP整理"文件夹下所有文件夹的名称

dir = paste("./APP整理/",first_category_name,sep="") #用paste命令构建路径变量dir,第一级目录的详细路径

n = length(dir) #读取dir长度，也就是：总共有多少个一级目录

n_sub

n_sub

n_sub

head(n_sub) #n_sub是每个一级目录(文件夹)下有多少个文件，也就是：有多少个二级目录，初始化为0，用于后面的操作

merge_1

dim(merge_1)

names(merge_1)

merge_1$second_category

merge_1$first_category

merge_1

for(i in 1:n){ #对于每个一级目录(文件夹)

b=list.files(dir[i]) #b是列出每个一级目录(文件夹)中每个xlsx文件的名称

n_sub[i]=length(b) #得到一级目录(文件夹)下xlsx的文件个数:n_sub

for(j in 1:n_sub[i]){ #对于每个一级目录(文件夹)下的每个xlsx文件

new_1

names(new_1)

new_1

new_1$second_category

new_1$first_category

merge_1

}

# write.xlsx(merge_1,paste(dir[i],'/merge.xlsx',sep=''),row.names = F,col.names= F)

}

write.xlsx(merge_1,paste("./APP整理",'/merge.xlsx',sep='')

,row.names = F,col.names= F)#得到一个汇总文件，并没有在每个文件夹下保存单独的汇总文件