# 定义一个函数,用来生成随机文件名 generate_random_filename <- function(){ random_name <- paste(sample(LETTERS, 5, replace = TRUE), collapse = "") return(paste0(random_name, ".jpg")) } # 获取需要重命名的文件列表 file_list <- list.files(path = "path/to/your/folder", pattern = ".jpg", full.names = TRUE) # 生成新旧文件名的对应关系 mapping <- data.frame(old_name = file_list, new_name = sapply(1:length(file_list), function(x) generate_random_filename())) # 保存对应关系到tsv文件 write.table(mapping, file = "file_mapping.tsv", sep = "\t", col.names = TRUE, row.names = FALSE) # 打印新旧文件名对应关系到屏幕上 print(mapping) # 重命名文件并将新文件名保存在同一目录下 file_name_mapping <- setNames(mapping$new_name, mapping$old_name) file.rename(names(file_name_mapping), file_name_mapping) [2024-12-01 02:45:08 | AI写代码神器 | 537点数解答]