elementweise Kombination von zwei Listen im R

Sagen, ich habe zwei Listen:

list.a <- as.list(c("a", "b", "c"))

list.b <- as.list(c("d", "e", "f"))

Möchte ich kombinieren diese Listen rekursiv, so dass das Ergebnis wäre eine Liste der kombinierten Elemente als Vektor wie folgt:

[[1]]
[1] a d

[[2]]
[1] a e

[[3]]
[1] a f

[[4]]
[1] b d

und so weiter. Ich fühle mich wie ich bin etwas fehlt, relativ einfach hier. Keine Hilfe?

Cheers.

  • expand.grid(list.a, list.b) wird Sie geben, was Sie wollen in einem data.frame Struktur, die ist wohl mehr nützlich.
  • Ich brauche die resultierende Liste für do.Aufruf zum erzeugen einer Serie von Zeichnungen mit dem x werden die Elemente der Liste.a, und y die Elemente der Liste.b (d.h., a[1], b[1]; a[1], b[2]; ...; a[n], b[k]).
  • Siehe unten meine Antwort
  • siehe auch related: stackoverflow.com/questions/6515134/...
InformationsquelleAutor sinclairjesse | 2012-10-22
  1. 13

    expand.grid(list.1, list.b) gibt Ihnen das gewünschte Ergebnis in einer data.frame Struktur. Dieser neigt dazu, die meisten nützliches format für die Arbeit mit Daten in R. Allerdings konnte man die genaue Struktur, Fragen Sie nach, (speichern der Bestellung) mit einem Aufruf apply und lapply:

    result.df <- expand.grid(list.a, list.b)
result.list <- lapply(apply(result.df, 1, identity), unlist)

    Wenn Sie wollen diese Liste, bestellt durch das erste element:

    result.list <- result.list[order(sapply(result.list, head, 1))]
    • Dies ist nicht reproduzierbar. Was ist k?
    • behoben! tut mir Leid, dass
    • +1 -- Schön zu sehen, dass expand.grid() funktioniert auf Listen als auch als "einfacher" Vektoren.
    • Süß. Danke! Ich finde es seltsam, es ist nicht eine eingebaute Funktion, die rekursiv kombinieren der Listen. Bin ich allein hier?
    • Dies scheint nicht zu funktionieren, wenn jede Liste enthält mehrere sub-Elemente pro element. Zum Beispiel, wenn list.a wurden statt list.a <- list(c("a","b","c"),c("x","y","z")), bekommt man nicht das gewünschte Ergebnis...
    InformationsquelleAutor Matthew Plourde
  2. 7

    Du willst mapply (wenn du mit "rekursiv" bedeutet "parallel"):

    mapply(c, list.a, list.b, SIMPLIFY=FALSE)

    Oder vielleicht ist das mehr das, was Sie wollen:

    unlist(lapply(list.a, function(a) lapply(list.b, function (b) c(a, b))), recursive=FALSE)
    InformationsquelleAutor dholstius
  3. 3

    Diese bekommt Sie, was Sie suchen:

    unlist(lapply(list.a, function(X) {
    lapply(list.b, function(Y) {
        c(X, Y)
    })
}), recursive=FALSE)
    InformationsquelleAutor Josh O'Brien
  4. 3

    Hier ist eine Funktion, die Sie übergeben können, die Listen zu erweitern

    expand.list <- function(...){
   lapply(as.data.frame(t((expand.grid(...)))),c, recursive = TRUE, use.names = FALSE)}

 expand.list(list.a, list.b)
    InformationsquelleAutor mnel
  5. 2

    Überrascht, niemand hat erwähnt, dass dieses einfache one-liner:

    as.list(outer(list.a,list.b, paste))

[[1]]
[1] "a d"

[[2]]
[1] "b d"

[[3]]
[1] "c d"

[[4]]
[1] "a e"
    • Dies scheint zu zwingen, die Eingang in die Saiten. Ich versuchte dies mit Ganzzahlen x <- c(1, 2, 3) und y <- c(4, 5, 6), und es ändert sich alles in strings um.
    InformationsquelleAutor
  6. 1

    Hier ist etwas brute-force-Ansatz, da Sie die gleichen Abmessungen haben, "Liste anfügen".b-Liste.eine rekursiv mithilfe der append-Funktion.

    # CREATE LIST OBJECTS 
  list.a <- as.list(c("a", "b", "c"))
  list.b <- as.list(c("d", "e", "f"))

# CREATE AN EMPTY LIST TO POPULATE      
list.ab <- list()

# DOUBLE LOOP TO CREATE RECURSIVE COMBINATIONS USING append
    ct=0    
      for( i in 1:length(list.a) ) {    
        for (j in 1:length(list.b) ) {
          ct=ct+1
           list.ab[[ct]] <- append(list.a[[i]], list.b[[j]])     
         } 
       }

# PRINT RESULTS
list.ab
    InformationsquelleAutor Jeffrey Evans
Schreibe einen Kommentar