在R语言默认目录下有一文件夹test，其下有三个文件，分别是test1.txt， text2.txt, text3.txt， 现在要对这三个文件进行批量的修改。主要使用到了for 循环和sub()字符替换函数。思路是先通过list.files()函数将test文件夹下面的三个文件名读至变量，然后通过for循环来实现批量修改文件名。
1. 修改文件扩展名
|
1
2
3
4
5
6
7
|
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. 删除文件扩展名
|
1
2
3
4
5
6
7
|
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'
|
1
2
3
4
5
6
7
|
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. 修改文件名中的字符
|
1
2
3
4
5
6
7
|
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”正则表达式代替文件中的数字。
|
1
2
3
4
5
6
7
|
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
到此这篇关于使用R语言批量修改文件名的文章就介绍到这了,更多相关R语言批量修改文件名内容请搜索服务器之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持服务器之家！
原文链接：https://blog.csdn.net/henanlion/article/details/105540956