erstellen verschachtelte Liste von 2 oder mehr Vektoren in R?

Question

Sagen, ich habe 2 (oder mehr) Vektoren:

v1 <- letters[1:2] 
v2 <- letters[24:26] 

> v1 
[1] "a" "b" 

> v2 
[1] "x" "y" "z" 

Wie könnte ich eine verschachtelte Liste wie diese programmatisch konstruieren, die Listen von allen Kombinationen meiner Eingangsvektoren enthält? Edit: Ich möchte das ohne ineffiziente Looping-Strukturen machen.

> l1 <- list(list(v1[1], v2[1]), list(v1[1], v2[2]), 
     list(v1[1], v2[3]), list(v1[2], v2[1]), 
     list(v1[2], v2[2]), list(v1[2], v2[3])) 

> str(l1) 
List of 6 
$ :List of 2 
..$ : chr "a" 
..$ : chr "x" 
$ :List of 2 
..$ : chr "a" 
..$ : chr "y" 
$ :List of 2 
..$ : chr "a" 
..$ : chr "z" 
$ :List of 2 
..$ : chr "b" 
..$ : chr "x" 
$ :List of 2 
..$ : chr "b" 
..$ : chr "y" 
$ :List of 2 
..$ : chr "b" 
..$ : chr "z" 

Answer 1

Ein einfacher Weg ist Schleifen zu verwenden:

l1 <- list() 
list_pos <- 1L 

for (i in 1:length(v1)) { 
    for (j in 1:length(v2)) { 
    l1[[list_pos]] <- list(v1[i], v2[j]) 
    list_pos <- list_pos + 1L 
    } 
} 

bearbeiten:

Ich denke, Schleifen ein bisschen unfair, rep bekommen, aber hier ist etwas (hässlich) Code, sie vermeidet :

l2 <- apply(expand.grid(v1, v2), 1, as.list) 

Btw. Die Schleife ist viel schneller. Ich vermute, es gibt noch viel schönere und kreativere Möglichkeiten, dies noch zu tun.

Answer 2

Hier ist eine Lösung, die die erforderlichen Kombinationen in einen Datenrahmen generiert.

> v1 <- letters[1:2] 
> v2 <- letters[24:26] 
> 
> aResult <- expand.grid(v2,v1) 
> View(aResult) 
> aResult 
    Var1 Var2 
1 x a 
2 y a 
3 z a 
4 x b 
5 y b 
6 z b 
> 

Wenn der Datenrahmen in eine list() einer Kombination pro Listeneintrag aufgeteilt werden müssen, können wir dies mit split() erreichen.

#If the data frame must be split into a list, one entry per row 
aResult$id <- as.factor(1:nrow(aResult)) 
theList <- split(aResult,aResult$id) 

Drucken das erste Element in der Liste, sehen wir Folgendes.

> theList[[1]] 
    Var1 Var2 id 
1 x a 1 
>