根据R中datafrom中的匹配值重命名文件

# 1. 创建datafrom数据框，存储匹配值和新文件名
datafrom <- data.frame(match_value = c("匹配值1", "匹配值2", "匹配值3"),
                       new_filename = c("新文件名1", "新文件名2", "新文件名3"))

# 2. 获取待重命名的文件列表
path <- "待重命名文件目录路径"
file_list <- list.files(path)

# 3. 遍历文件列表，重命名文件
for (file in file_list) {
  # 判断文件是否存在于datafrom的匹配值列中
  if (file %in% datafrom$match_value) {
    # 获取对应的新文件名
    new_filename <- datafrom$new_filename[datafrom$match_value == file]
    # 构建原文件路径和新文件路径
    old_path <- file.path(path, file)
    new_path <- file.path(path, new_filename)
    # 重命名文件
    file.rename(old_path, new_path)
  }
}