r - 如何通过另一个矩阵的值过滤矩阵

Question

我有 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 中找到 rowname 和 colname ，否则，我想将“NA”写入该位置

例如结果应该是:

米1:

    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

结果不对？有什么建议？

Answer 1

我可以想出一个两行:

m <- m1[NA,]
m[m2] <- m1[m2]