使用 R 绑定包含在源文件列中的文件名/模式的文件

Question

我正在尝试 rbind 在源文件的列中找到的数千个文件。我需要 rbind 的文件的文件名如下：
_1.csv、__1.csv、___1.csv、_2.csv.、3.csv、_3.csv等

源文件是这样的：

由于文件名包含“1”，因此这些csv文件所属的城市在A市。

因此，我想要的输出是创建一个名为 A.csv 的新文件 rbind 内容为 _1.csv、__1.csv、___1.csv 和 _2.csv。另一种方法是制作一个新的 B.csv 文件，其中包含所有带有“3”的文件名的 rbind 内容（3.csv 和 _3.csv）。

我正在处理一个大数据，因此有数千个文件。

Answer 1

这没有经过测试，但可能会有所帮助

files <- list.files(pattern = "_.*csv")

write_to_csv <- function(x, y){
  if(file.exists(y)){
    write.csv(x, file=y, append = T, col.names = F, row.names = F)
  } else
    write.csv(x, file=y, row.names = F)
}


for(f in files){
  x <- read.csv(f)

  if(grepl("1|2", f)){
    write_to_csv(x, "A.csv")

  } else if(grepl("3", f)){
    write_to_csv(x, "B.csv")
  }
}