NA（または同じ値）とのintersectコマンド

Question

私はintersectコマンドを使用したいが、2つの行に2つの "NA"があるので、動作しない。私は「NA」は、行の末尾に表示されるようにG2をソートしたい

A<-matrix(c(4,9,5,3,1,7,NA,15,NA,6,9,3,9,5,1,11,3,8,NA,9,7,NA,21,17),4,6,byrow=TRUE) 
B<-matrix(c(7,1,5,9,4,3,NA,NA,6,3,9,15,8,3,11,1,5,9,9,NA,7,NA,17,21),4,6,byrow=TRUE) 
order.A <- t(apply(A, 1, order)) 
A.new <- matrix(A[cbind(c(row(A)), c(order.A))], ,6) 
G1<-matrix(nrow=4,ncol=3) 
G2<-matrix(nrow=4,ncol=3) 
for (i in 1:4){ 
G1[i,]<-intersect(B[i,],A.new[i,1:3]) 
G2[i,]<-intersect(B[i,],A.new[i,4:6]) 
} 

：
はここに私の試みであることは、次のようになります。

 G1   G2 
(1 4 3)  (7 5 9) 
(6 3 9) (15 NA NA) 
(3 1 5) (8 11 9) 
(9 7 17) (21 NA NA) 

Answer 1

あなたは

を行うことができます

A<-matrix(c(4,9,5,3,1,7, NA,15,NA,6,9,3, 9,5,1,11,3,8, NA,9,7,NA,21,17),4,6,byrow=TRUE) 
B<-matrix(c(7,1,5,9,4,3, NA,NA,6,3,9,15, 8,3,11,1,5,9, 9,NA,7,NA,17,21),4,6,byrow=TRUE) 
order.A <- t(apply(A, 1, order)) 
A.new <- matrix(A[cbind(c(row(A)), c(order.A))], ,6) 
G1<-matrix(nrow=4,ncol=3) 
G2<-matrix(nrow=4,ncol=3) 
for (i in 1:4){ 
    G1[i,]<-intersect(B[i,],A.new[i,1:3]) 
    G2[i,]<-`length<-`(intersect(A.new[i, 4:6], B[i, ]), 3) 
} 
G2 
#  [,1] [,2] [,3] 
# [1,] 5 7 9 
# [2,] 15 NA NA 
# [3,] 8 9 11 
# [4,] 21 NA NA 

intersectコマンドの結果の長さが<3の場合、バリエーションはさらにNA秒になります。