R语言循环仅执行一次即退出问题求助

嘿，我一眼就发现问题所在啦！你的循环迭代范围写错了——for(i in length(files))只会让i取到length(files)这个单一数值（比如你的场景里就是2），所以循环自然只跑一次，根本没遍历所有文件名。

修复后的核心代码 #

把循环的迭代部分改成seq_along(files)，它会生成从1到files长度的完整序列，确保每个文件名都被处理到：

writeCSVTables <- function(files, psms){ 
  # 先做必要的前置检查，避免后续出错
  if (!"file" %in% colnames(psms)) {
    stop("psms数据框必须包含名为'file'的列！")
  }
  if (length(files) == 0) {
    message("没有需要处理的文件名，函数退出。")
    return(invisible(NULL))
  }
  
  for(i in seq_along(files)){ 
    name <- tools::file_path_sans_ext(files[i]) 
    # 提取匹配当前文件名的行
    matched_rows <- psms[grep(name, psms$file), c("accession", "sequence", "peptide", "modif", "fixed", "file", "spectrum")]
    # 无匹配行时给出提示，避免生成空文件
    if (nrow(matched_rows) == 0) {
      message(paste("未找到与", name, "匹配的行，跳过该文件。"))
      next
    }
    write.table(matched_rows, paste(name,".corr.csv", sep =""), sep ="\t", row.names = FALSE, quote = FALSE) 
  } 
}

额外优化：用函数式编程替代循环 #

如果你更习惯R的函数式风格，也可以用lapply简化代码，避免手动管理循环索引：

writeCSVTables <- function(files, psms){ 
  if (!"file" %in% colnames(psms)) {
    stop("psms数据框必须包含名为'file'的列！")
  }
  if (length(files) == 0) {
    message("没有需要处理的文件名，函数退出。")
    return(invisible(NULL))
  }
  
  lapply(files, function(file) {
    name <- tools::file_path_sans_ext(file)
    matched_rows <- psms[grep(name, psms$file), c("accession", "sequence", "peptide", "modif", "fixed", "file", "spectrum")]
    if (nrow(matched_rows) == 0) {
      message(paste("未找到与", name, "匹配的行，跳过该文件。"))
      return(NULL)
    }
    write.table(matched_rows, paste(name,".corr.csv", sep =""), sep ="\t", row.names = FALSE, quote = FALSE)
  })
}

为什么用seq_along更安全？ #

如果files是空向量，1:length(files)会生成1:0这种异常序列，导致循环出错；而seq_along(files)会直接生成空序列，安全跳过循环，避免不必要的错误。

内容的提问来源于stack exchange，提问作者Iustinian Olaru