R语言-读取一个文件夹的不同文件夹中相同文件名并合并（套娃读取）

1.读取CS文件夹中不同的文件夹（f1、f2…)下的P1_drinking.csv文件

micepath <- "F:\\文件下载\\CS"#路径名
#recursive=T,会自动递归调用到f1.f2...文件夹
drinking = list.files(micepath,pattern = 'P1_drinking.csv',recursive = TRUE,full.names = TRUE)

2.写到新的csv文件中(事先设定好）

for(i in 1:length(drinking))     #循环绝对地址的列表
{
  df = fread(file = drinking[i])         #读取csv文件
  #如果不存在csv文件则创建，追加写入新csv文件
  write.csv(df,"F:\\newCS\\P1_drinking.csv",append = TRUE,col.names = F)
}