2013-01-20 22 views
5

Mam listę formularza list(c(x1,x2),y,c(z1,z2)). że chce połączyć podelementy każdego elementu listy w celu wytworzenia matrycę w postaci:Połączyć elementy listy w R

[1] x1 y z1 

[2] x1 y z2 

[3] x2 y z1 

[4] x2 y z2 

Aby nadać konkretny przykład, biorąc pod uwagę:

A = list(c(1,4),2,3,c(1,4)) 

Chciałbym funkcja, która zajmie i produkować wyjście, które wygląda identycznie jak ta komenda co przyniosłoby:

t(matrix(c(c(1,2,3,1),1:4,c(4,2,3,1),c(4,2,3,4)),ncol=4)) 

Odpowiedz

11

Korzystając expand.grid:

expand.grid(A) 
# Var1 Var2 Var3 Var4 
# 1 1 2 3 1 
# 2 4 2 3 1 
# 3 1 2 3 4 
# 4 4 2 3 4 

i jeżeli zamówienie jest naprawdę ważne, można zrobić coś takiego:

rev(expand.grid(rev(A))) 
# Var4 Var3 Var2 Var1 
# 1 1 2 3 1 
# 2 1 2 3 4 
# 3 4 2 3 1 
# 4 4 2 3 4 

i ewentualnie zmienić nazwę kolumny.

+0

Dokładnie tego szukałem. Wielkie dzięki! – user1643809