Pause Liste in Zeilen während Identifikatoren in r Erhaltung

Question

Ich arbeite mit der folgenden Art von Daten-Set

names<-c("Aname","Aname","Bname","Cname","Cname") 
    list <- list(c('a, b','b, r','c, g'), c('d,g','e,j'), 
    c('d, h','s, q','f,q'), c('d,r ','s, z'),c('d, r','d, r')) 
    data<-cbind(names, list) 

Und will jedes Element einer Liste zu durchbrechen und dann bindet sie mit dem „Namen“ Variable. Also der Datensatz Ich versuche, so zu produzieren aussehen würde:

Column 1 Column 2 
Aname  a 
Aname  b 
Aname  b 
Aname  r 
Aname  c 

Es gab viele Diskussionen gewesen, wie eine Liste zu einem data.frame konvertieren, aber ich bin zu kämpfen irgendwelche Ratschläge zu finden, wie zum tun Sie dies "innerhalb" eines Datenrahmens, wo ich Bezeichner in derselben Zeile wie die Liste (in diesem Fall Namen) beibehalten möchte. Danke vielmals!

Answer 1

So geht's mit dplyr/tidyr. Die Idee ist, jedes Element von list zu einer Liste selbst (aus einem Zeichenvektor, der es derzeit ist) zu konvertieren und rief dann die sehr nützlich unnest Funktion

library(dplyr) 
library(tidyr) 
data.frame(data) %>% 
    unnest(list) %>% 
    mutate(list = strsplit(list, ",")) %>% 
    unnest(list) 
# names list 
#1 Aname a 
#2 Aname b 
#3 Aname b 
#4 Aname r 
#5 Aname c 
#6 Aname g 
#7 Aname d 
#8 Aname g 
#9 Aname e 
#10 Aname j 
#11 Bname d 
#12 Bname h 
#13 Bname s 
#14 Bname q 
#15 Bname f 
#16 Bname q 
#17 Cname d 
#18 Cname r 
#19 Cname s 
#20 Cname z 
#21 Cname d 
#22 Cname r 
#23 Cname d 
#24 Cname r 

(Um von zusätzlichen Leerzeichen entfernen, wenn nötig, Sie können %>% mutate(list = gsub(" ", "", list)) an die Befehlskette anhängen.)

Answer 2

Hier ist eine mögliche Basis R Lösung

myFunc <- function(x) unlist(strsplit(unlist(x), ", | |,")) 

data.frame(Col1 = rep(names, sapply(list, function(x) length(myFunc(x)))), 
      Col2 = myFunc(list)) 

#  Col1 Col2 
# 1 Aname a 
# 2 Aname b 
# 3 Aname b 
# 4 Aname r 
# 5 Aname c 
# 6 Aname g 
# 7 Aname d 
# 8 Aname g 
# 9 Aname e 
# 10 Aname j 
# 11 Bname d 
# 12 Bname h 
# 13 Bname s 
# 14 Bname q 
# 15 Bname f 
# 16 Bname q 
# 17 Cname d 
# 18 Cname r 
# 19 Cname s 
# 20 Cname z 
# 21 Cname d 
# 22 Cname r 
# 23 Cname d 
# 24 Cname r 

Answer 3

Sie melt

01 verwenden könnte

library(reshape2) 
melt(lapply(setNames(list, names), function(x) 
         unlist(strsplit(x, ', | |,')))) 

Answer 4

Ein weiterer Ansatz mit splitstackshape - seine cSplit Funktionsstreifen Leerzeichen neben dem Trennzeichen standardmäßig.

library(splitstackshape) 
lengths <- sapply(data[, 2], length) 
nameslist <- unlist(rep(data[, 1], lengths)) 
df1 <- data.frame(names = nameslist, chars = unlist(data[, 2])) 
cSplit(df1, "chars", sep = ",", direction = "long") 

Oder per Ananda Kommentar einfach wie folgt:

cSplit(data.table(names = data[, "names"], list = sapply(data[, "list"], toString)), 
"list", ",", "long") 

Ergebnis:

names chars 
1: Aname  a 
2: Aname  b 
3: Aname  b 
4: Aname  r 
5: Aname  c 
6: Aname  g 
7: Aname  d 
8: Aname  g 
9: Aname  e 
10: Aname  j 
11: Bname  d 
12: Bname  h 
13: Bname  s 
14: Bname  q 
15: Bname  f 
16: Bname  q 
17: Cname  d 
18: Cname  r 
19: Cname  s 
20: Cname  z 
21: Cname  d 
22: Cname  r 
23: Cname  d 
24: Cname  r 

Wenn Sie das Ergebnis als data.table nicht wollen, können Sie die letzte Zeile in as.data.frame() wickeln können .

Answer 5

Das OP knotet zwei Fragen zusammen.

Die Antwort auf die erste ist, die Daten zu bereinigen. Zum Beispiel das Kopieren @ DavidArenburg der Funktion:

myFunc <- function(x) unlist(strsplit(unlist(x), ", | |,")) 
clean <- sapply(list, myFunc) 

und der zweite Schritt ist zu stapeln:

stack(setNames(clean,names))