Erhalten Wert von Matrix basierend auf Adresse aus zwei anderen Tabellen in R

Question

Ich versuche, eine Tabelle C zu erstellen, die Werte aus einer Matrix X, Y und Z basiert auf der "Adresse" in zwei anderen Tabellen A und B.

um dies zu tun ich habe erste ID-Spalten in Tabellen A gegeben und B von:

A$A.ID <- seq.int(nrow(A)) 
B$B.ID <- seq.int(nrow(B)) 

und fand alle Permutationen der IDs:

C <- expand.grid(A$A.ID, B$B.ID) 

Jetzt möchte ich um Spalten X, Y und Z hinzuzufügen C habe aber keine Ahnung was ich mache (; ziemlich neu zu programmieren: /)

Um den Vorgang zu erläutern habe ich ein Bild gezeichnet. Hoffentlich hilft es ...

Lassen Sie mich wissen, wenn Sie etwas anderes wissen müssen.

Answer 1

Ich denke, das funktioniert nach dem Muster, das Sie beschreiben. Zunächst einmal hier einige Beispieldaten:

A <- data.frame(A.ID=1:2, X=1:2, Y=3:2, Z=2:1) 
B <- data.frame(B.ID=1:2, X=1:2, Y=2:1, Z=1:2) 

A;B 
# A.ID X Y Z 
#1 1 1 3 2 
#2 2 2 2 1 

# B.ID X Y Z 
#1 1 1 2 1 
#2 2 2 1 2 

X <- matrix(1:9,nrow=3); Y <- matrix(1:16,nrow=4); Z <- matrix(1:4,nrow=2) 
X;Y;Z 
#  [,1] [,2] [,3] 
#[1,] 1 4 7 
#[2,] 2 5 8 
#[3,] 3 6 9 

#  [,1] [,2] [,3] [,4] 
#[1,] 1 5 9 13 
#[2,] 2 6 10 14 
#[3,] 3 7 11 15 
#[4,] 4 8 12 16 

#  [,1] [,2] 
#[1,] 1 3 
#[2,] 2 4 

dann zu einer Matrix ein Bündel von Map ping des erforderlichen Indizes, das jede der X/Y/Z Objekte der Teilmenge verwendet wird:

arep <- rep(1:nrow(A),nrow(B)) 
brep <- rep(1:nrow(B),each=nrow(A)) 
cells <- Map(
    `[`, 
    list(X=X,Y=Y,Z=Z), 
    Map(function(x,y) t(mapply(c,x,y)), A[arep,-1], B[brep,-1]) 
) 

data.frame(A["A.ID"][arep,,drop=FALSE], B["B.ID"][brep,,drop=FALSE], cells) 
# A.ID B.ID X Y Z 
#1  1 1 1 7 2 
#2  2 1 2 6 1 
#1.1 1 2 4 3 4 
#2.1 2 2 5 2 3