Kombinieren von zwei Listen, in einen dataframe in R

Ich habe zwei Listen mit unterschiedlicher Struktur:

listA <- list(c("a","b","c"), c("d","e"))
listB <- list(0.05, 0.5)

listA
[[1]]
[1] "a" "b" "c"

[[2]]
[1] "d" "e"

listB
[[1]]
[1] 0.05

[[2]]
[1] 0.5

Ich habe eine Idee, wie die Verwendung von Schleifen kombinieren Sie die beiden Listen in ein dataframe, das aussieht, wie das unten, aber ich bin mir sicher, dass es eine effizientere Art und Weise, dies zu tun.

data.frame(A = c("a","b","c","d","e"), B = c(rep(0.05,3), rep(0.5,2)))
  A    B
1 a 0.05
2 b 0.05
3 c 0.05
4 d 0.50
5 e 0.50
InformationsquelleAutor Rami Al-Fahham | 2015-02-20
  1. 19

    Dies ist eine weitere option:

    do.call(rbind, Map(data.frame, A=listA, B=listB))

#   A    B
# 1 a 0.05
# 2 b 0.05
# 3 c 0.05
# 4 d 0.50
# 5 e 0.50
    InformationsquelleAutor Matthew Plourde
  2. 3

    Vielleicht gibt es eine elegantere Art und Weise hält, dass die Klasse numeric von list2's-Elemente... Aber das eine funktioniert so gut

    df <- do.call(rbind,mapply(cbind, listA, listB))
df <- as.data.frame(df, stringsAsFactors = FALSE)
df[,2] <- as.numeric(df[,2])

    BEARBEITEN Weg besser ist Matthew Plourde Lösung mit Map aka mapply(data.frame, A=listA, B=listB, SIMPLIFY = FALSE)

    InformationsquelleAutor Rentrop
  3. 2

    Ich würde lieber dieses:

    do.call(rbind,
        Map(function(...) setNames(cbind.data.frame(...), 
                                   c("A", "B")), 
            listA, listB))
#  A    B
#1 a 0.05
#2 b 0.05
#3 c 0.05
#4 d 0.50
#5 e 0.50
    InformationsquelleAutor Roland
  4. 1

    Hier ist noch eine Möglichkeit:

    do.call(rbind,
        lapply(1:length(listA),
               function(i)
                 data.frame(A=unlist(listA[i]),
                            B=unlist(listB[i]))))
    InformationsquelleAutor zx8754
  5. 1

    Wenn auf der Suche nach einem tidyverse Lösung, hier ist der Analog-auf die akzeptierte Antwort. Mit der dfr suffix der map - Funktion-Familie ermöglicht eine sehr einfache Lösung, die sollte auch schneller sein als do.call("rbind").

    library(tidyverse)
listA <- list(c("a","b","c"), c("d","e"))
listB <- list(0.05, 0.5)

map2_dfr(listA, listB, ~ tibble(A = .x, B = .y))
#> # A tibble: 5 x 2
#>   A         B
#>   <chr> <dbl>
#> 1 a      0.05
#> 2 b      0.05
#> 3 c      0.05
#> 4 d      0.5 
#> 5 e      0.5

    Erstellt am 2019-02-12 durch die reprex Paket (v0.2.1)

    InformationsquelleAutor Calum You
Schreibe einen Kommentar