如何编写循环批量删除列表中所有DataFrame内flow值为-1的行

• 请勿使用list作为你的列表变量名，list是R的内置函数，命名冲突会引发不可预期的报错，建议替换为自定义名称如df_list。

方法1：for循环实现（符合你需要写循环的需求） #

直接遍历列表所有元素，逐个过滤后覆盖原列表对应位置的内容即可：

# 替换为你自己的列表变量名
df_list <- 你的原列表变量名

for (i in seq_along(df_list)) {
  # 过滤当前数据框中flow不等于-1的行
  df_list[[i]] <- df_list[[i]][df_list[[i]]$flow != -1, ]
}

说明：使用seq_along(df_list)代替1:length(df_list)更稳定，即使列表为空也不会出现异常。

方法2：lapply实现（R语言更常用的简洁写法，无需手动写循环） #

lapply是专门用于列表遍历的函数，代码更简洁易读：

df_list <- lapply(df_list, function(x) {
  x[x$flow != -1, ]
})

可选优化 #

如果你的数据中flow列存在缺失值（NA），可以调整过滤条件避免NA值导致的行丢失问题：

# 同时排除flow为-1和缺失值的行
df_list[[i]] <- df_list[[i]][!df_list[[i]]$flow %in% c(-1, NA), ]

内容的提问来源于stack exchange，提问作者Luis Barresi