2017-10-26 12 views
0

私は2つの行列を持ち、そこから対応するセルのすべての固有の値のペアを抽出します。つまり、第1の行列のセル[1,1]の値と第2の行列のセル[1,1]をペアにしてから、そのペアのリストを減らして一意のペアのみを含める必要があります。これはどうすればいいですか?ここで行列のセルから値のペアを抽出するにはどうすればよいですか?

行列のサンプルのバージョンがある

 V1 V2 V3 V4 V5 V6 
[1,] "w" "o" "r" "d" NA NA 
[2,] "p" "o" "r" "c" NA NA 
[3,] "v" "i" "n" NA NA NA 
[4,] "s" "e" "l" NA NA NA 
[5,] "p" "i" "e" "d" NA NA 
[6,] "p" "i" "e" "r" "r" "e" 

     V1 V2 V3 V4 V5 V6 
[1,] "h" "a" "e" "d" "a" NA 
[2,] "p" "o" "r" "c" "u" "s" 
[3,] "v" "i" "n" "u" "m" NA 
[4,] "s" "a" "l" NA NA NA 
[5,] "p" "e" "s" NA NA NA 
[6,] "p" "e" "t" "r" "u" "s" 
+0

とあなたのアルゴリズムを実行しているから、望ましい結果が何であるかを上記の? m1 == m2で始まる。ここで、m1とm2は行列である。 – xiaodai

+0

希望の結果は、各行列のセル1,1からの対応するセルから派生したペア( "w"、 "h")である。私はすべての行と列に対して2つの行列の間にあるすべてのユニークなペアを知りたい。 – Namenlos

+0

は実際にあなたの結果がどのように見えるかを投稿に書き留めます。あなたの説明は、問題の近くにない私のような誰かのために理解するのが難しいかもしれません。 – xiaodai

答えて

2

我々だけで行うことができませんでした。

unique(paste(m1, m2)) 

テスト:

> m1 <- scan(what="") 
1: "w" "o" "r" "d" NA NA 
7: "p" "o" "r" "c" NA NA 
13: "v" "i" "n" NA NA NA 
19: "s" "e" "l" NA NA NA 
25: "p" "i" "e" "d" NA NA 
31: "p" "i" "e" "r" "r" "e" 
37: 
Read 36 items 
> m2 <- scan(what="") 
1: "h" "a" "e" "d" "a" NA 
7: "p" "o" "r" "c" "u" "s" 
13: "v" "i" "n" "u" "m" NA 
19: "s" "a" "l" NA NA NA 
25: "p" "e" "s" NA NA NA 
31: "p" "e" "t" "r" "u" "s" 
37: 
Read 36 items 
> unique(paste(m1, m2)) 
[1] "w h" "o a" "r e" "d d" "NA a" "NA NA" "p p" "o o" "r r" "c c" "NA u" 
[12] "NA s" "v v" "i i" "n n" "NA m" "s s" "e a" "l l" "i e" "e s" "d NA" 
[23] "e t" "r u" 
関連する問題