在R语言中从多文件夹提取.tsv文件至指定目录的问题

原代码存在几个关键问题导致无法正常运行：

• 变量大小写不统一：R语言区分大小写，你定义的变量是Files，但循环里用了files，会触发"找不到变量"的错误。
• 未递归遍历子文件夹：默认list.files仅扫描根目录，不会深入子文件夹，必须添加recursive=TRUE参数才能获取所有子目录下的文件。
• 未获取完整文件路径：默认list.files只返回文件名，没有完整路径，复制时系统无法定位到子文件夹里的目标文件，需要加上full.names=TRUE。
• 未过滤.tsv文件：没有指定只匹配.tsv结尾的文件，会把文件夹和其他类型文件也纳入列表，导致复制失败。
• file.copy参数错误：直接将根目录路径传给from，而非具体的.tsv文件路径，自然无法完成复制操作。

修正后的代码 #

# 替换为你的实际路径
root_dir <- "你的根目录路径"
target_dir <- "你的目标目录路径"

# 递归获取所有.tsv文件的完整路径
tsv_files <- list.files(
  path = root_dir,
  pattern = "\\.tsv$",  # 精准匹配.tsv结尾的文件
  recursive = TRUE,     # 遍历所有子文件夹
  full.names = TRUE     # 返回完整文件路径，方便后续定位
)

# 循环复制每个文件到目标目录
for (file_path in tsv_files) {
  # 提取纯文件名，避免子文件夹路径打乱目标目录结构
  file_name <- basename(file_path)
  file.copy(
    from = file_path,
    to = file.path(target_dir, file_name),
    overwrite = TRUE  # 若目标目录有同名文件则覆盖，可根据需求删除此参数
  )
}

额外提示 #

• 如果担心同名文件被覆盖，可以在复制前先判断目标目录是否存在该文件，或者给文件名添加原文件夹前缀来区分（比如paste0(basename(dirname(file_path)), "_", file_name)）。
• 可以在循环内加入print(paste("已完成复制:", file_name))，方便跟踪复制进度。

内容的提问来源于stack exchange，提问作者szmple