基于R语言结合元数据框实现S编号文件夹到样本名的自动重命名

• 匹配逻辑失效：list.dirs()返回的是带全路径的目录字符串（比如./Experiment/D0/Weather/S1），直接和短名称的样本号（S1/S2）做匹配，永远无法命中。
• 路径大小写不匹配：代码中遍历的路径写为./experiment/，实际目录结构为Experiment，macOS/Linux系统下会直接报路径不存在的错误。
• 系统命令兼容性差：用shell()拼接的move命令依赖Windows系统环境，换操作系统就无法运行，且原命令未处理路径下的空格场景，容易出现路径识别错误。
• 缺少风险判断：原代码没有检查目标路径是否已经存在同名文件夹，一旦重命名的目标已经存在，会直接覆盖文件，没有兜底保护。

步骤1：读入元数据并建立映射关系 #

# 替换为你自己的元数据文件实际路径
meta_file_path <- "./2021_metadata.txt"
# 读入元数据，不自动把字符串转成因子
meta <- read.delim(meta_file_path, stringsAsFactors = FALSE)

# 建立样本号到样本名的映射表
sample_map <- setNames(meta$Sample_name, meta$S_number)
# 手动核对映射关系是否正确
print(sample_map)

正常输出应该和元数据一致：

S1       S2       S3 
 "V_3_4"  "V_9_4" "H_13_5"

步骤2：定位所有需要重命名的文件夹 #

# 替换为你实际的根目录路径，注意大小写和磁盘上的文件夹名完全一致
root_dir <- "./Experiment"
# 递归遍历下所有层级的文件夹
all_subdirs <- list.dirs(path = root_dir, recursive = TRUE, full.names = TRUE)

# 从全路径中拆分出最后一级的文件夹名，和样本号做匹配
dir_level_name <- basename(all_subdirs)
# 标记符合匹配规则的文件夹
is_target <- dir_level_name %in% names(sample_map)
# 整理待重命名的数据集
rename_todo <- data.frame(
  old_full_path = all_subdirs[is_target],
  old_name = dir_level_name[is_target],
  new_name = sample_map[dir_level_name[is_target]]
)

# 先打印待处理列表，人工核对无误后再执行重命名操作
print("待重命名的文件夹清单：")
print(rename_todo)

这一步是防错关键：必须确认清单里的文件夹都是你要修改的，没有把其他同名的无关文件夹纳入处理范围，避免误操作。

步骤3：执行批量重命名 #

# 遍历所有待处理条目执行重命名
for (idx in seq_len(nrow(rename_todo))) {
  # 取出当前待处理的旧路径、新名称
  old_path <- rename_todo$old_full_path[idx]
  new_base <- rename_todo$new_name[idx]
  # 拼接新路径：保留原文件夹的上级目录，只替换最后一级的名称
  new_path <- file.path(dirname(old_path), new_base)
  
  # 风险判断：如果新路径已经存在同名文件夹，直接跳过避免覆盖
  if (dir.exists(new_path)) {
    message("跳过操作：目标路径 ", new_path, " 已存在同名文件夹，未执行修改")
    next
  }
  
  # 调用R原生的重命名函数，跨Windows/macOS/Linux系统兼容
  status <- file.rename(from = old_path, to = new_path)
  
  # 打印每一步的执行结果
  if (status) {
    message("操作成功：", old_path, " 已重命名为 ", new_path)
  } else {
    message("操作失败：", old_path, " 无法重命名，请检查文件夹读写权限")
  }
}

• 所有路径的大小写必须和磁盘上的实际文件名完全匹配，macOS、Linux系统对大小写敏感，错写会直接报路径不存在的错误。
• 首次运行时，先核对步骤2打印的待处理清单，确认没有错匹配的无关文件夹再继续执行。
• 代码内置了同名文件夹判断逻辑，不会因为重命名目标已存在而覆盖原有文件。
• 不需要额外调用系统shell命令，R原生的file.rename()函数可以稳定处理带空格、中文的路径场景。

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