根据＆＃34; NA＆＃34;将一个矩阵划分为两个矩阵。

Question

现在我必须根据＆＃34; NA＆＃34;列将该矩阵拆分为两个矩阵。价值观，一个与所有＆＃34; NA＆＃34;和其他没有＆＃34; NA＆＃34;。

输入：

>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

您可以拆分矩阵＆＃39; k＆＃39;如下：

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

技巧是，TRUE和FALSE分别被解释为1和0。