如何使用data.table快速删除所有列取值均为0的行

• 第一步：加载data.table包并原地转换数据框，setDT无额外内存拷贝，适合处理超大数据集

library(data.table)
setDT(dat) # 原地转换，无需额外赋值，原数据直接变为data.table格式

• 第二步：使用底层C优化的rowSums做行逻辑判断，性能远高于R层迭代的Reduce写法

# 仅保留非全0行，逻辑为：行内至少有1个非0值
dat <- dat[rowSums(dat != 0) > 0]

• 示例运行结果
  使用你提供的测试数据运行后输出如下：

> dat
   a b c
1: 0 1 0
2: 2 0 1
3: 3 0 3

性能说明 #

你之前使用的Reduce(|, dat)属于R层逐列迭代逻辑，列数越多运算速度越慢；而rowSums是底层向量化实现，不管列数多少都能保持极高的运算效率，处理万级以上列数的高维数据集时，速度比Reduce写法快数十倍。

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