在R语言默认目录下有一文件夹test，其下有三个文件，分别是test1.txt， text2.txt, text3.txt， 现在要对这三个文件进行批量的修改。主要使用到了for 循环和sub()字符替换函数。思路是先通过list.files()函数将test文件夹下面的三个文件名读至变量，然后通过for循环来实现批量修改文件名。
1. 修改文件扩展名
folder<-setwd('~/test')
files<-list.files(folder)
for (f in files){
newname<-sub(".txt",'.xls',f)
file.rename(f,newname)
}
dir()
显示结果：
[1] "text1.xls" "text2.xls" "text3.xls"
2. 删除文件扩展名
folder<-setwd('~/test')
files<-list.files(folder)
for (f in files){
newname<-sub('.xls','',f)
file.rename(f,newname)
}
dir()
显示结果：
[1] "text1" "text2" "text3"
3. 增添文件扩展名
这里我们用到一个正则表达式，用‘$'代替字符的尾部，将字符尾部替换为'.doc'
folder<-setwd('~/test')
files<-list.files(folder)
for (f in files){
newname<-sub('$','.doc',f)
file.rename(f,newname)
}
dir()
输出结果：
"text1.doc" "text2.doc" "text3.doc"
4. 修改文件名中的字符
folder<-setwd('~/test')
files<-list.files(folder)
for (f in files){
newname<-sub('xt','ab',f) #将原文件中的字符xt，替换为字符ab
file.rename(f,newname)
}
dir()
输出结果：
[1] "teab1.doc" "teab2.doc" "teab3.doc"
5. 删除文件名中的数字
把实验目录下的文件分别修改为tab.doc,teb.doc, tdb.doc，用“\\d”正则表达式代替文件中的数字。
folder<-setwd('~/test')
files<-list.files(folder)
for (f in files){
newname<-sub('\\d','',f)
file.rename(f,newname)
}
dir()
输出结果：
[1] "tab.doc" "tdb.doc" "teb.doc"
参考文章：
1.R语言文件目录操作 https://www.omicsclass.com/article/338
2.R语言字符串替换 https://www.cnblogs.com/emanlee/p/4464018.html
