4

私は2つの行列を持っています:m1とm2.

m1:

    1   2   3   4   5
1  v11 v12 v13 v14 v15
2  v21 v22 v23 v24 v25
3  v31 v32 v33 v34 v35 
4  v41 v42 v43 v44 v45
5  v51 v52 v53 v54 v55

m2:

 x1, x2
 1   1
 1   2
 1   4
 2   2
 2   3    
 2   5

m1行名と列名が にある場合のみ保持したいm2、そうでない場合は、その場所に「NA」と書きたい

たとえば、結果は次のようになります。

m1:

    1   2   3   4   5
1  v11 v12 NA  v14  NA
2  NA  v22 v23  NA v25
3  NA  NA  NA  NA  NA 
4  NA  NA  NA  NA  NA
5  NA  NA  NA  NA  NA

これまでのところ、私は使用しようとしました:

m1[!(rownames(m1) %in% m2$x1 & colnames(m1) %in% m1$x2)]<-NA

結果は正しくありませんか？助言がありますか？

4

2 に答える 2

2

私は2つのライナーを思い付くことができます：

m <- m1[NA,]
m[m2] <- m1[m2]
于 2013-08-15T15:10:29.137 に答える
2

私の古い回答では、OP がm1に基づいてから特定の要素を選択したいと考えていましたm2。Hong Ooi の回答は、dimnames がm1行と列のインデックスと一致し、m2文字値ではなく整数を含む場合に非常にうまく機能します。必ずしも整列しない場合の大まかな解決策を次に示します。

m1 <- matrix(c("V11","V21","V12","V22","V13","V23"),nrow=2,ncol=3)
dimnames(m1) <- list(c("r2","r1"),c("c1","c2","c3"))
m2 <- matrix(c("r1","r1","r2","c1","c3","c3"),nrow=3,ncol=2)

> m1
   c1    c2    c3   
r2 "V11" "V12" "V13"
r1 "V21" "V22" "V23"

> m2
     [,1] [,2]
[1,] "r1" "c1"
[2,] "r1" "c3"
[3,] "r2" "c3"

temp <- matrix(TRUE,nrow=nrow(m1),ncol=ncol(m1))

for(i in 1:nrow(m2)){
  temp[which(rownames(m1)==m2[i,1]),which(colnames(m1)==m2[i,2])] <- FALSE
}

m1[temp] <- NA

> m1
   c1    c2 c3    
r2 NA    NA "V13"
r1 "V21" NA "V23"

古い答え:

m1 <- matrix(c("V11","V21","V12","V22","V13","V23"),nrow=2,ncol=3)

> m1
     [,1]  [,2]  [,3] 
[1,] "V11" "V12" "V13"
[2,] "V21" "V22" "V23"

m2 <- matrix(c(1,1,2,1,3,3),nrow=3,ncol=2)

> m2
     [,1] [,2]
[1,]    1    1
[2,]    1    3
[3,]    2    3

keep <- paste(paste0(m2[,1],m2[,2]),collapse="|")
m1[!grepl(keep,m1)] <- NA

> m1
     [,1]  [,2] [,3] 
[1,] "V11" NA   "V13"
[2,] NA    NA   "V23"

またはワンライナーとして：

m1[!grepl(paste(paste0(m2[,1],m2[,2]),collapse="|"),m1)] <- NA
于 2013-08-15T15:09:34.640 に答える