Нанесение одной матрицы на две матрицы на основе «NA»

Question

Теперь мне нужно разбить эту матрицу на две матрицы на основе столбца со значениями «NA», со всеми «NA» и другими без «NA».

Вход:

>k 
     a u   v 
[1,] "10" "mature" "MIMAT0000062" 
[2,] "20" "stemloop" "NA" 
[3,] "40" "mature_2" "MIMAT0000043" 

Вывод должен быть, как

>k1 
     a u   v 
[1,] "10" "mature" "MIMAT0000062" 
[2,] "40" "mature_2" "MIMAT0000043" 

>k2 
     a u   v 
[1,] "20" "stemloop" "NA" 

Есть ли функция, чтобы сделать это?

Answer 1

Вы можете разбить матрицу «к» следующим образом:

k1 <- k[which(rowSums(is.na(k))==0),] 
k2 <- k[which(rowSums(is.na(k))>0),] 

Хитрость заключается в том, что ИСТИНА и ЛОЖЬ, интерпретируются как 1 и 0, соответственно.