如何批量给自己的文件重命名

生信技能树

发布于 2021-03-23 20:31:38

1.6K0

发布于 2021-03-23 20:31:38

文章被收录于专栏：生信技能树生信技能树

应用Windows日常办公，很多时候为了更快识别自己文件夹的文件，我们常需要对文件进行重命名自己偏好习惯，个位数的文件重命名，无非就是耗费自己一两分钟的时间，点点鼠标，然后重命名，输入文件名即可。

前面分享了：Linux命令行，菜鸟报错之隐藏在换行中的字符^M，我们下载下来的文件，那么好了，现在问题是我需要对下列500+文件进行个性化重命名，要在每个文件前加上数据收集的年份区间，

比如2007_2008_DEMO_E.XPT，难道还选择鼠标点点：

是不是看得眼花缭乱。你要是不乱的话，反正我是乱了！！！

要是鼠标点点点，想想这个工作量，都是可怕。而且，中间还不能出错喔，万一年份搞错了，那排查起来，可又是想跳楼的心都有。

那么，有没有更好的方法？

听过Jimmy老师的课的都知道啦，解决问题的能力，就是编程的能力。这种活，必须是代码批量处理啊。。

OK，自己想要的最终命名格式为：把每个文件之前加上年份区间，而且保证每个文件的对应年份准确无误，这样子：

把文件下载网站中的注释文件复制下载下来，其长这样：

保存成TXT文件，然后读进R，后面就开心的玩耍吧：

rm(list = ls())
##读入文件
dat <- data.table::fread('NHANESLaboratoryData.txt',
             data.table = F)
##去除RDC Only文件，因为文件不对外开放，没有下载链接
library(tidyverse)
tmp <- str_detect(dat$`Data File`,'RDC Only')
tmp <- dat[!tmp,]
tmp$`Data File` <- unlist(lapply(str_split(tmp$`Data File`,' '), 
function(x)x[[1]][1]))

##把文件夹下以XPT后缀的文件全部读取进来
xpt <- as.data.frame(list.files('.','.XPT'))
colnames(xpt) <- 'names'

处理后tmp文件就长这样了：

xpt读进来处理后成这样：

好办，通过xpt[,2]和tmp[,'Data File']列进行匹配，以确定自己是否全部文件已经下载完成。

最后就是拼接，tmp文件中，第一列（Years）和第四列(Data File）拼接起来：

mainNames <- unlist(lapply(str_split(xpt[,1],'\\.'), function(x)x[1]))
                           
xpt <- mutate(xpt,mainNames = mainNames)
                           
##通过xpt[,2]和tmp[,'Data File']列进行匹配
                           
tmp <- tmp[tmp$`Data File` %in% xpt$mainNames,]
                           
##构建最后重命名的文件名称，成为2003—2004_L06AGE_C.XPT
                           
tmp$fileRename <- paste0(tmp$Years,'_',tmp$`Data File`,'.XPT')
                           
tmp$`Data File` <- paste0(tmp$`Data File`,'.XPT')
                           
##其实就是一个函数搞定，批量，无误！
file.rename(tmp$`Data File`,tmp$fileRename)

最后，文件重命名为：