您可以使用dir()并将recursive设置为TRUE来列出文件夹树中的所有文件，也可以使用pattern来定义regular expression以筛选.csv文件。

csv_files <- dir(pattern='.*[.]csv', recursive = T)

或者更好更简单（感谢speendo的评论）：

csv_files <- dir(pattern='*.csv$', recursive = T)

"解释“

• pattern='*.csv$：pattern参数必须是筛选文件名的正则表达式。此RegEx筛选出以.csv结尾的文件名。

如果你想过滤以data开头的字符串，你应该尝试这样的模式：pattern='^data.*.csv$'

• recursive=T：强制dir()递归遍历工作目录下的所有文件夹。

得到文件列表后，* 并假设所有文件都具有相同的结构 *（即所有文件都具有相同的列），您可以使用read.csv()和rbind()合并它们：

for(i in 1:length(csv_files)) {
  if(i == 1)
    df <- read.csv(csv_files[i])
  else
    df <- rdbind(df, read.csv(csv_files[i]))
}

Ramnath在他的评论中建议了一种更快的合并.csv文件的方法（同样，* 假设所有这些文件都具有相同的结构 *）：

library(dplyr)
df <- rbind_all(lapply(csv_files, read_csv))

以下是dplyr的解决方案

# get list of files ending in csv in directory root
dir(root, pattern='csv$', recursive = TRUE, full.names = TRUE) %>%
  # read files into data frames
  lapply(FUN = read.csv) %>%
  # bind all data frames into a single data frame
  rbind_all %>%
  # write into a single csv file
  write.csv("all.csv")

此解决方案假设所有*.csv文件具有相同的结构。
（未测试）

fileList <- list.files(
  pattern="*.csv$",
  recursive=TRUE,
  full.name=TRUE,
  )

completeCSV <- data.frame()

for(file in fileList) {
  print(file) # for debug: print current file
  if (nrow(completeCSV) == 0) {
    completeCSV <- read.csv(file)
  } else {
    curDF <- read.csv(file) # could also be read.csv2()
    rbind(completeCSV, curDF)
  }
}

write.csv(completeCSV) # could also be write.csv2()

碱R溶液。

files <- list.files(path = ".",pattern = "*.csv",recursive = TRUE)

write.csv(do.call(rbind,lapply(files, read.csv)), "combined_data.csv")