不能消除零

Question

我一直在尝试消除此数据框中的 0 并尝试了堆栈溢出中的所有方法，但 none 有效！

这是df

Department Hours   SIZE
1         HVAC  1281  38000
2           PH   717  38000
3          Ele   854  38000
4           LV   568  38000
5          Man   462  38000
7         HVAC   202  38000
8           PH    22  38000
9          Ele    30  38000
10          LV    49  38000
11         Man    75  38000
13        HVAC    52  33000
14          PH    40  33000
15         Ele    72  33000
16          LV     0  33000
17         Man     0  33000
19        HVAC   118  33000

我已经尝试过这些：

sizedf <- lapply(sizedf, function(x) x[x != 0 & !is.na(x)]) 

sizedf[sizedf$Hours==0] <- NA

sizedf[apply(sizedf[,-1], 1, function(x) !all(x== 0)),]

Answer 1

我们可以在使用具有数字列的数据集子集创建的逻辑矩阵上使用 rowSums，并得到一个逻辑 vector 来对行

进行子集化

sizedf2 <- sizedf[!rowSums(sizedf[-1]==0),]