导入csv文件并根据R中的文件名循环合并

Question

我有一个大约 75 个 CSV 的文件夹，有些是同一站的 2 个，有些是独立的。

有没有办法遍历文件夹，拉出两个具有相同前 4 个字符的 CSV，然后导出为一个，合并 CSV？在下面的循环中？都是一样的结构。

这里有五个示例文件名（在文件夹“文件夹”中）

> files
"13_2016_01-01~2016-09-30.csv"
"13_2016_10-01~2017-06-30.csv"
"1222_2016_01-01~2016-09-30.csv"
"1222_2016_10-01~2017-06-30.csv"
"1114_2016_01-01~2016-09-30.csv"

这里是目前在每个文件中读取和导出的代码：

z <- NULL
files <- dir("Folder")

for (file in files) {
  x <- read.csv(file.path("Folder", file), as.is=T, skip=12)

write.csv(x, paste(file)), row.names=F, col.names=F)
}

使用这个例子，我想得到这个文件列表：

> files
"13_2016-2017.csv"
"1222_2016-2017.csv"
"1114_2016-2017.csv"

Answer 1

考虑一个正则表达式匹配解决方案来遍历文件前缀集以进行读/写 csv 操作：

# OP's POSTED EXAMPLE
files <- c("13_2016_01-01~2016-09-30.csv",
           "13_2016_10-01~2017-06-30.csv",
           "1222_2016_01-01~2016-09-30.csv",
           "1222_2016_10-01~2017-06-30.csv",
           "1114_2016_01-01~2016-09-30.csv")

# GENERALIZED FOR ALL CSVs IN WORKING DIR
# files <- list.files(path="/path/to/csv/folder", pattern="\\.csv")         

m <- regexpr("^.*_", files)    
file_prefix <- unique(regmatches(files, m))     # VECTOR OF UNIQUE PREFIX MATCHES
file_prefix
# [1] "13_2016_"   "1222_2016_" "1114_2016_"

# NAMED LIST OF ROW-BINDED DATAFRAMES
dfList <- sapply(file_prefix, function(p){
                dfs <- lapply(list.files(path="/path/to/csv/folder", 
                                         pattern=p, full.names=TRUE), function(f) {
                              setNames(read.csv(f), c("Col1", "Col2", "Col3"))
                       })                                  
                do.call(rbind, dfs)   
          }, simplify=FALSE)

# OUTPUT CSV FILES NAMED WITH PREFIX AND '2016-2017' SUFFIX
out <- mapply(function(d,n) write.csv(d, file=paste0(n,"2016-2017.csv"), row.names=FALSE), 
              dfList, names(dfList), SIMPLIFY=FALSE)

Answer 2

如果没有您的数据，我无法测试我的代码，因此我会将我的答案更接近于伪代码，但我认为这应该可行：

library(stringr)
library(dplyr)
files <- list.files() #List all the files
FileGroups <- paste0(unique(str_sub(files,1,4)),"*") #find the file groups and apend a '*' for regex in next code chunk

for (i in 1:length(FileGroups)){
  df <- list.files(pattern=FileGroups[i])%>% # find all files in one group
    lappy(read_csv()) %>% #read in
    bind_rows() #bind together
  write.csv(df,paste0(FileGroups[i],"_2016-2017.csv")) #output

}

您可能需要尝试这个，但想法是首先找到所有不同的模式，然后加载与该模式匹配的所有 csv 并绑定它们。我使用this question 作为行绑定代码。另外，您说的是 4 位代码，但以您的示例为例，您可能有 2 位代码，如果是这种情况，我会使用 str_split 来查找组。希望这有帮助！