R：同じサイズの2つの配列をマージする

Question

この質問は簡単なものでなければならないと確信していますが、スタックオーバーフローで同様の質問が見つかりませんでした。私はresultは、例えば配列AとB

の値の配列の配列となるようarray.Aとarray.Bをマージしたい：

array.A <- array(1:9, dim=c(3,3)) 
array.B <- array(LETTERS[seq(from = 1, to = 9)], dim=c(3,3)) 

> array.A 
    [,1] [,2] [,3] 
[1,] 1 4 7 
[2,] 2 5 8 
[3,] 3 6 9 

> array.B 
    [,1] [,2] [,3] 
[1,] "A" "D" "G" 
[2,] "B" "E" "H" 
[3,] "C" "F" "I" 

そして、私はそれらをマージしたい結果の配列となるよう次のようになります。

> result 
    [,1]  [,2]  [,3] 
[1,] ["A",1] ["D",4] ["G",7] 
[2,] ["B",2] ["E",5] ["H",8] 
[3,] ["C",3] ["F",6] ["I",9] 

私はcbindとrbindを使用して試してみたが、これは私が（私は配列を連結するつもりはないよ）探しているものではありません。私は単純な解決策を見つけることができないようです。

ありがとうございます。

Answer 1

それは構造の一般的な種類ではありませんが、あなたはmatrixまたはarray内listオブジェクトを置くことができます。

out <- array(Map(list, array.A, array.B), dim=dim(array.A)) 
#  [,1] [,2] [,3] 
#[1,] List,2 List,2 List,2 
#[2,] List,2 List,2 List,2 
#[3,] List,2 List,2 List,2 

out[1,1] 
#[[1]] 
#[[1]][[1]] 
#[1] 1 
# 
#[[1]][[2]] 
#[1] "A" 

out[1,1][[1]][1] 
#[[1]] 
#[1] 1 

out[1,1][[1]][2] 
#[[1]] 
#[1] "A"