如何消除匹配某些條件的矩陣行？中的R

Question

我有了這個矩陣：

mm <- matrix(c(1,2,0,0,3,0,0,0,3,4,0,2,2,0,1,0,2,0,0,0,2,0,0,2,0,0,1,0,0,1,0,2,0,1,0,3,0,2,0,3),10,4) 

和我想消除所有的那些行中，只有元件中的一個是0不同的，例如：3 0 0 0或0 2 0 0，但我想以保持具有不同於0的多個元素的行，如3 1 0 0。

對此的任何幫助將不勝感激。

Tina。

Answer 1

mm[rowSums(mm != 0) > 1,] 
#  [,1] [,2] [,3] [,4] 
#[1,] 1 0 2 0 
#[2,] 2 2 0 2 
#[3,] 0 0 2 1 
#[4,] 3 1 0 0 
#[5,] 0 2 1 0 
#[6,] 4 0 1 3