Я пытаюсь убрать смещение из микроскопического анализа, поэтому хочу сделать так, чтобы экспериментатор не знал, каковы условия для изображения, на которое он смотрит.
Для этого мне нужночтобы переименовать каждый файл в каталоге, чтобы их нельзя было идентифицировать, но мне также нужно знать, каким было исходное имя файла впоследствии.
Я создал папку с тремя файлами, чтобы попробовать это.Я получил список файлов и создал вектор для новых имен и объединил их во фрейм данных.
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)
Мне также удалось изменить имена с помощью сценариев из предыдущего вопроса и r блоггеров , использующих sapply и file.rename.Я немного застрял с использованием подстановочных знаков в этом, чтобы выбрать все имя файла (без расширения), но я уверен, что это возможно;
sapply(filename_list,FUN=function(eachPath){file.rename(from=eachPath,to=sub(pattern="image_",replacement="anon",eachPath))})
Как я могу получить вектор new_filenames и применить его к file.renameтак что он соответствует вектору original_filenames во фрейме данных df1, или есть лучший способ сделать это?Спасибо.