특정 조건과 일치하는 행렬을 제거하는 방법은 무엇입니까? 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으로 유지합니다.

이 문제에 대한 도움은 매우 감사하겠습니다.

티나.

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