R语言删除包含至少一个0的行代码运行无效问题排查

两段代码失效是几个明确的编写错误导致的：

• 最核心的问题：你把筛选后的结果赋值给了新变量dataZ，全程没有修改原data对象，运行完代码查看原数据表自然不会有任何变化。如果需要覆盖原数据，要把赋值的左侧变量名改成data。
• 第一段代码存在逻辑漏洞：直接对全表做all(row !=0)判断时，第一列Date是字符/日期类型，和数值0做比较永远返回TRUE，但这不会导致完全失效——只要你查看的是dataZ而不是原data，至少能筛掉数值列全为0的行。
• 第二段代码存在语法错误：代码里引用了不存在的对象df来取列名（你的数据集名叫data），如果这行代码没有报错，说明你当前环境里残留了其他叫df的变量，取到的列范围完全错误，筛选逻辑自然不生效。

针对你给出的数据集结构（第一列为日期列，后续H1~H22为需要校验0值的数值列），用下面任意一段代码都能实现需求：

# 先识别所有数值列，避免硬编码列位置带来的错误
num_cols <- sapply(data, is.numeric)

# 方案1：apply逐行判断，逻辑和你最初写的第一段代码一致
dataZ <- data[apply(data[, num_cols], 1, function(x) all(x != 0)), ]

# 方案2：rowSums向量化运算，数据量大时运行速度更快
dataZ <- data[rowSums(data[, num_cols] == 0) == 0, ]

校验说明：用你提供的3行示例数据运行上述代码，会正确过滤掉2021-07-05、2021-07-06两行（分别存在多处0、H17列值为0），仅保留无0值的2021-07-07行。

如果你的数值列是浮点型，可能存在精度存储问题（比如实际值为极小的非0数，显示时被舍入为0），可以把判断条件改成all(abs(x) < 1e-9)这类精度阈值判断，避免误删。

内容的提问来源于stack exchange，提问作者dev.niho