将列表中元素的名称与文件名进行匹配&重命名R中的变量

file_names <- list.files("path/to/directory")  # 替换为实际的目录路径
element_names <- names(your_list)  # 替换为实际的列表名称

if (length(file_names) != length(element_names)) {
  # 根据需要进行调整，例如删除多余的文件名或添加缺失的文件名
}

for (i in seq_along(file_names)) {
  file.rename(file_names[i], paste0("path/to/directory/", element_names[i]))  # 替换为实际的目录路径
}

lapply(seq_along(file_names), function(i) {
  file.rename(file_names[i], paste0("path/to/directory/", element_names[i]))  # 替换为实际的目录路径
})