嘿，我来帮你分析下问题出在哪，以及怎么解决～

首先拆解你遇到的两个核心问题：

1. 隐性的列名拼写错误 #

你代码里写的data$markerIDs是笔误哦！原数据的列名是MarkerID（首字母大写，没有末尾的s），你单独运行那行代码时可能不小心写对了，但函数里写错了——这会导致P值符合条件时，R找不到对应列，逻辑直接出错，得先修正这个问题。

2. 批量处理时的文件参数错误（显性报错原因） #

你提到要处理多个文件，但当前函数的写法只支持单个文件。如果直接传多个文件名的向量（比如filter_rows_by_value(c("file1.txt", "file2.txt"))），会触发两个问题：

• fread(file)虽然能批量读入多个文件，但会把它们合并成一个数据集，这不是你想要的（你需要每个文件单独处理）；
• write.table(data,paste0(file,"_edited.txt"))里的file是向量，paste0会生成多个文件名，但write.table只能接受单个文件名作为参数，这就导致了你看到的“invalid description argument”错误，同时R提示“条件长度大于1”，因为内部判断file==""时，file是向量，条件长度不匹配。

修正后的函数写法 #

咱们把函数改成循环逐个处理文件，同时修正列名错误，还能优化输出格式：

library(data.table) # 记得加载data.table包，因为用到了fread

filter_rows_by_value <- function(files){
  # 循环遍历每个文件，单独处理
  for(file in files){
    data <- fread(file)
    
    # 修正列名拼写：MarkerID而非markerIDs，同时用"0"而非0避免类型混合
    data$MarkerID <- ifelse(data$Pvalue < 2e-06, data$MarkerID, "0")
    
    # 优化write.table参数：去掉行号、用制表符分隔、避免引号包裹
    write.table(data, 
                file = paste0(file, "_edited.txt"), 
                row.names = FALSE, 
                sep = "\t", 
                quote = FALSE)
  }
}

# 调用示例：
# 处理单个文件
filter_rows_by_value("file_name.txt")
# 处理当前目录下所有txt文件
filter_rows_by_value(list.files(pattern = "\\.txt$"))

改法说明 #

• 用for循环逐个处理文件，保证每个文件独立读入、修改、输出，不会出现参数长度不匹配的问题；
• 把0改成"0"，避免MarkerID列从字符型变成数值/字符混合类型，保持数据格式统一；
• 给write.table加的参数能让输出文件和原格式一致，不会多出多余的行号或引号。

备注：内容来源于stack exchange，提问作者tacrolimus