如何从4个文件夹创建一个大的.csv文件，每个文件夹包含100个文件，使用R代码？

# 加载所需的包
library(data.table)

# 创建一个空的数据表
data <- data.table()

# 设置文件夹路径
folder_paths <- c("folder1", "folder2", "folder3", "folder4")

# 循环遍历每个文件夹
for (folder_path in folder_paths) {
  # 获取文件夹中的文件列表
  file_list <- list.files(path = folder_path, full.names = TRUE)
  
  # 循环遍历每个文件
  for (file_path in file_list) {
    # 读取文件数据
    file_data <- fread(file_path)
    
    # 将文件数据添加到总数据表中
    data <- rbind(data, file_data)
  }
}

# 将数据保存为.csv文件
fwrite(data, "combined_data.csv")