从数据框中删除具有零值的列

Question

我有一个 data.frame:

SelectVar
     a   b  c   d   e   f   g   h   i j k l ll m n o p  q   r
1 Dxa8 Dxa8 0 Dxa8 Dxa8 0 Dxa8 Dxa8 0 0 0 0  0 0 0 0 0 Dxc8 0
2 Dxb8 Dxc8 0 Dxe8 Dxi8 0 tneg tpos 0 0 0 0  0 0 0 0 0 Dxi8 0

我想从数据框中删除两行中具有零值的列，因此它产生如下数据框:

SelectVar
     a   b    d    e    g   h     q   
1 Dxa8 Dxa8 Dxa8 Dxa8 Dxa8 Dxa8  Dxc8 
2 Dxb8 Dxc8 Dxe8 Dxi8 tneg tpos  Dxi8 

试过:

SelectVar!=0

这会产生一个真/假数据帧，并且:

SelectVar[, colSums(abs(SelectVar)) ! == 0]

这会产生错误。

如何删除每行中具有零值的列？

Answer 1

你几乎拥有它。把这两个放在一起:

 SelectVar[, colSums(SelectVar != 0) > 0]

这是有效的，因为因子列被评估为 >= 1 的数字。