使用R重命名文件并保存旧文件名和新文件名的日志

Question

我试图消除显微镜分析中的偏见，所以我想这样做，以便实验者不知道他们正在查看的图像的条件是什么。

为此，我需要重命名目录中的每个文件，以便无法识别它们，但我还需要能够知道随后的原始文件名。

我制作了一个包含三个文件的文件夹来试试这个。我得到了文件列表并为新名称制作了一个向量，并组合成一个数据框。

setwd("~/Desktop/folder1")
filename_list<-list.files("~/Desktop/folder1")
new_filenames <- c("anon1", "anon2", "anon3")
require(reshape2)
df1 <- melt(data.frame(filename_list,new_filenames))
View(df1)

我也可以使用a previous question中的脚本更改名称 和r bloggers使用sapply和file.rename。我在使用通配符时有点卡住选择整个文件名（减去扩展名），但我确定它可能;

sapply(filename_list,FUN=function(eachPath){file.rename(from=eachPath,to=sub(pattern="image_",replacement="anon",eachPath))})

如何获取new_filenames向量并将其应用于file.rename，使其对应于df1数据框中的original_filenames向量， 或者有更好的方法吗？感谢。