如何使用sapply根据文件名前缀筛选路径名列表子集？

我已经能用for循环实现筛选文件名前缀为500及以上数字的路径列表，但想用sapply改写（认为更高效），但sapply代码无法正常运行——变量i无法按预期迭代，往新列表添加元素也存在问题。

现有代码 #

可正常运行的for循环

library(stringr)

# 构造测试列表
myList <- list("D:/test/472_a.txt", "D:/test/303_b.txt", "D:/test/500_a.txt", "D:/test/505_b.txt", "D:/test/700_a.txt")
# 预分配子集列表
myListSubset <- vector("list", length = length(myList))

# for循环实现筛选
for (i in 1:length(myList)) {
  swath <- str_sub(basename(paste(myList[i], collapse = "")), 1, 3)
  # 筛选前缀≥500的路径
  if (swath >= 500) {
    myListSubset[[i]] <- paste(myList[i], collapse = "")
  }
} 
# 移除空元素
myListSubset[sapply(myListSubset, is.null)] <- NULL
print(myListSubset)

无法正常运行的sapply代码

library(stringr)

myList <- list("D:/test/472_a.txt", "D:/test/303_b.txt", "D:/test/500_a.txt", "D:/test/505_b.txt", "D:/test/700_a.txt")
myListSubset <- vector("list", length = length(myList))

i <- 1
sapply(myList, function(s){
  swath <- str_sub(basename(s), 1, 3)
  if (swath >= 500) {
    myListSubset[[i]] <- s
    i <- (i + 1)
  }
})
# 移除空元素
myListSubset[sapply(myListSubset, is.null)] <- NULL
print(myListSubset)

问题分析 #

1. 变量作用域问题：sapply内部的函数是闭包，函数内的i是局部变量，修改它不会影响外部的i值，每次迭代时i始终为初始值1，导致所有符合条件的元素都被赋值到myListSubset[[1]]，后续元素会覆盖之前的内容。
2. 违背apply系列函数设计逻辑：sapply的核心是映射输入并返回结果，不是用来修改外部对象的，这种副作用写法不符合函数式编程的规范，也容易引发不可预测的问题。
3. 字符串比较隐患：原代码中swath >= 500是字符串比较，虽然当前案例结果正确，但如果前缀是"099"这类带前导零的字符串，会出现逻辑错误，正确做法是转成整数后再比较。

正确的实现方案 #

方案1：符合sapply设计逻辑的写法

不需要预分配列表，直接让sapply返回筛选结果，最后过滤空元素：

library(stringr)

myList <- list("D:/test/472_a.txt", "D:/test/303_b.txt", "D:/test/500_a.txt", "D:/test/505_b.txt", "D:/test/700_a.txt")

# 用sapply生成结果，自动处理每个元素
myListSubset <- sapply(myList, function(s) {
  swath <- as.integer(str_sub(basename(s), 1, 3))  # 转成整数避免字符串比较坑
  if (swath >= 500) {
    return(s)
  } else {
    return(NULL)
  }
})

# 移除空元素
myListSubset <- myListSubset[!sapply(myListSubset, is.null)]
print(myListSubset)

方案2：更简洁的逻辑子集筛选（推荐）

不需要循环或sapply，直接生成逻辑向量筛选列表：

library(stringr)

myList <- list("D:/test/472_a.txt", "D:/test/303_b.txt", "D:/test/500_a.txt", "D:/test/505_b.txt", "D:/test/700_a.txt")

# 生成筛选逻辑向量
keep <- sapply(myList, function(s) {
  as.integer(str_sub(basename(s), 1, 3)) >= 500
})

# 直接筛选符合条件的元素
myListSubset <- myList[keep]
print(myListSubset)

内容的提问来源于stack exchange，提问作者Ray J