如何在R语言中不使用rowSums函数移除数据框中的全零行？

针对你遇到的问题——因为数据里有正负值抵消、还有NA，直接用rowSums确实行不通，这里有两种可靠的方案来移除那些**完全由0组成（没有NA、1或-1）**的行：

方法一：逐行判断是否全为0且无NA #

我们可以用apply对每行做检查，判断该行是否所有元素都是0，同时不存在任何NA值：

# 先还原你的示例数据框
dd <- data.frame(a=c(0,0,0,0),b=c(0,-1,NA,1),c=c(0,1,0,-1),d=c(0,NA,0,0), e=c(0,0,NA,1))
rownames(dd)<-paste("row",seq(1,nrow(dd),by=1),sep="")

# 筛选出不是「全0且无NA」的行
filtered_dd <- dd[!apply(dd, 1, function(row) all(row == 0) && !any(is.na(row))), ]

# 查看筛选结果
filtered_dd

运行后会得到你想要的结果：

a  b  c  d  e
row2  0 -1  1 NA  0
row3  0 NA  0  0 NA
row4  0  1 -1  0  1

方法二：替换NA后用非0元素数量判断 #

另一种更直观的思路：把NA替换成一个非0的临时值（比如1），然后统计每行中的非0元素数量，只要数量大于0就保留该行（完美避开正负抵消问题）：

# 将NA替换为1（临时值，只要不是0即可）
temp_dd <- replace(dd, is.na(dd), 1)
# 保留非0元素数量>0的行
filtered_dd <- dd[rowSums(temp_dd != 0) > 0, ]

# 查看结果
filtered_dd

这个方法运行效率更高，适合处理大规模数据集时的快速筛选。

关键说明 #

两种方法都精准匹配了你的需求：只移除完全由0构成的行，不会误删那些包含NA、1或-1的行，也避开了正负值抵消的陷阱。

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