Abflachungslistenspalte im Datenrahmen mit ID-Spalte

Question

Mein Datenrahmen enthält die Ausgabe einer Umfrage mit einem ausgewählten mehreren Fragetyp. Einige Zellen haben mehrere Werte.

df <- data.frame(a=1:3,b=I(list(1,1:2,1:3))) 
df 
    a  b 
1 1  1 
2 2 1, 2 
3 3 1, 2, 3 

Ich möchte die Liste verflachen die folgende Ausgabe zu erhalten:

df 
    a  b 
1 1  1 
2 2  1 
3 2  2 
4 3  1 
5 3  2 
6 3  3 

sollte einfach sein, aber irgendwie kann ich nicht die Suchbegriffe finden. Vielen Dank.

Answer 1

Sie können nur unnest von "tidyr" verwenden:

library(tidyr) 
unnest(df, b) 
# a b 
# 1 1 1 
# 2 2 1 
# 3 2 2 
# 4 3 1 
# 5 3 2 
# 6 3 3 

Answer 2

Mit base R, eine Option ist stack nach der list Elemente von 'b' Spalte mit der der Elemente von 'a' zu nennen. Wir können setNames verwenden, um die Namen zu ändern.

stack(setNames(df$b, df$a)) 

Oder eine andere Möglichkeit wäre, unstack zu verwenden, um automatisch das Listenelement von ‚b‘ zu nennen mit ‚a‘ Elemente und führen Sie dann die stack eine data.frame Ausgabe zu erhalten.

stack(unstack(df, b~a)) 

---

Oder können wir eine komfortable Funktion listCol_l von splitstackshape verwenden, um die list-data.frame zu konvertieren.

library(splitstackshape) 
listCol_l(df, 'b') 

Answer 3

Hier ist eine Art und Weise, mit data.table:

require(data.table) 
data.table(df)[,as.integer(unlist(b)),by=a] 

Wenn b konsequent gespeichert ist, as.integer übersprungen werden kann. Sie können mit

unique(sapply(df$b,class)) 
# [1] "numeric" "integer" 

Answer 4

Hier ist eine andere Basislösung, weit weniger elegant als jede andere bisher veröffentlichte Lösung. Um der Vollständigkeit halber zu posten, würde ich persönlich die Basislösung von akrun empfehlen.

with(df, cbind(a = rep(a, sapply(b, length)), b = do.call(c, b))) 

Dies baut die erste Spalte als die Elemente des a, wobei jeder wiederholt aus b die Länge des entsprechenden Listeneintrags entsprechen. Die zweite Spalte ist b "abgeflacht" unter Verwendung do.call() mit c().

Wie Ananda Mahto in einem Kommentar darauf hingewiesen, sapply(b, length) kann mit lengths(b) in der neuesten Version von R (3.2, wenn ich mich nicht irre) ersetzt werden.