R语言如何删除数据框中零值数量大于指定阈值的行

首先修正你示例代码中的笔误：创建df时参数应为row1/row2/row3，而非str1/str2/str3，修正后的示例数据如下：

# 示例数据框
row1 <- c(1,2,3,4,5,6,0,8)
row2 <- c(1,0,0,0,10,0,0,0)
row3 <- c(0,1,2,3,4,5,6,0)

df <- t(data.frame(row1, row2, row3))

适配高通量场景的最优方案 #

直接使用R内置向量化函数rowSums实现，运算效率远高于循环/sapply，支持百万行级大型数据集快速处理：

# 一行完成筛选：保留零值数量≤4的行
desired_output <- df[rowSums(df == 0) <= 4, ]

如果要匹配你规划的两步逻辑，拆分写法如下：

# 步骤1：逐行统计零值数量
zero_count <- rowSums(df == 0)
# 步骤2：按条件筛选行
desired_output <- df[zero_count <= 4, ]

原有代码问题说明 #

你编写的代码无法正常运行的核心原因有三个：

• 统计逻辑反向：你计算的是sum(x>0)即非零值数量，和你需要的零值数量统计逻辑相反
• append函数未赋值：append(outlist, out)不会修改原outlist对象，需要写成outlist <- append(outlist, out)才会保存结果
• 循环效率极低：for循环在处理超大型数据集时性能远低于向量化运算，不适配高通量场景

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