如何使用lapply处理文件时添加字符后缀保存修改后的文件

我来帮你搞定这个文件名拼接的问题～你之前用x+"_modified"的写法不对，因为R里字符串拼接不能用+运算符，得用paste()或者paste0()，而且还要注意保留原文件的扩展名，不然会生成类似a.txt_modified这种不符合预期的文件名。下面给你两种可行的解决方案：

方法1：用正则表达式替换文件名 #

通过sub()函数匹配文件名的.txt后缀，替换成_modified.txt，能精准修改文件名：

# 获取当前目录下的txt文件列表
L = list.files(".", ".txt")

# 批量处理文件
datalist = lapply(L, function(x) { 
  # 读取csv格式的txt文件
  DF = read.csv(x, sep = ",") 
  # 修正你代码里的小错误：去掉gsub语句末尾多余的括号
  DF$X = gsub("[:.:][[:digit:]]{1,3}","", DF$X) 
  # 将列名X改为ID
  colnames(DF)[colnames(DF)=="X"] <- "ID" 
  # 合并DF和genes数据框
  DF <- merge(DF, genes ,by="ID") 
  
  # 生成新文件名：把原文件名的.txt替换为_modified.txt
  new_filename <- sub("\\.txt$", "_modified.txt", x)
  # 保存处理后的文件，建议加上row.names=FALSE避免生成多余行号列
  write.csv(DF, new_filename, row.names = FALSE) 
  
  return(DF) 
})

方法2：用tools包拆分重组文件名（更通用） #

如果以后你处理的文件扩展名不是txt，这种方法更灵活——它会自动提取文件名和扩展名，再拼接新后缀：

library(tools) # 加载tools包处理文件路径

L = list.files(".", ".txt")

datalist = lapply(L, function(x) { 
  DF = read.csv(x, sep = ",") 
  DF$X = gsub("[:.:][[:digit:]]{1,3}","", DF$X) 
  colnames(DF)[colnames(DF)=="X"] <- "ID" 
  DF <- merge(DF, genes ,by="ID") 
  
  # 拆分文件名（不含扩展名）和扩展名
  name_without_ext <- file_path_sans_ext(x)
  ext <- file_ext(x)
  # 拼接生成新文件名
  new_filename <- paste0(name_without_ext, "_modified.", ext)
  
  write.csv(DF, new_filename, row.names = FALSE)
  return(DF) 
})

额外提示 #

• 加上row.names = FALSE是为了避免保存的文件里多出一列默认的行号，更符合数据规范；
• 你原来的代码里DF$X = gsub(...)后面多了一个闭合括号，已经帮你修正了，不然会触发语法报错哦～

内容的提问来源于stack exchange，提问作者Gabriel G.