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)
}