Wie verwenden Sie unsplit(), um mehrere Datenrahmen vertikal zu verbinden?

Question

Ich habe mehrere Datenrahmen in R mit genau der gleichen Struktur, und ich möchte sie vertikal in einem einzigen Datenrahmen zusammenführen. unsplit() scheint wie eine richtige Funktion zu tun. Ich war jedoch nicht in der Lage, es zum Laufen zu bringen.

Schließlich reduzierte ich alles auf diesen einfachen Fall:

> df <- data.frame("ch" = c("A", "B"), "num" = c(1, 2)); 
> df 
    ch num 
1 A 1 
2 B 2 


> divided <- split(df, df$ch); 
> divided 
$A 
    ch num 
1 A 1 

$B 
    ch num 
2 B 2 


> changed <- lapply(divided, function (x) {data.frame("ch" = x$ch, "num" = x$num + 1)}) 
> changed 
$A 
    ch num 
1 A 2 

$B 
    ch num 
1 B 3 


> unsplit(changed, df$ch) 
Error in `row.names<-.data.frame`(`*tmp*`, value = value) : 
    duplicate 'row.names' are not allowed 
In addition: Warning message: 
non-unique value when setting 'row.names': ‘1’ 

So ist die Frage - warum in diesem Fall nicht unsplit() hat funktioniert? Was wäre ein richtiger Weg, diese Funktion zu nutzen?

P.S. Ich bin in der Lage, meine Aufgabe zu lösen, indem ich do.call('rbind', changed) benutze, aber diese Frage ist über korrekte Anwendung von unsplit().

Answer 1

1) nach Splitting, num inkrementieren, ohne den Komponentendatenrahmen von Grunde auf wie dieses zu Rekonstruieren:

L <- lapply(divided, transform, num = num+1) 

Dann unsplit funktioniert:

> unsplit(L, df$ch) 
    ch num 
1 A 2 
2 B 3 

2) Wenn Sie die Datenrahmen von Grund auf neu rekonstruieren müssen, aber die Anzahl der Zeilen die gleiche in jeder Komponente halten dann die ursprünglichen Zeilennamen verwenden. Hier ist Ihr Code, außer dass wir row.names= hinzugefügt haben. Jetzt funktioniert es:

changed2 <- lapply(divided, 
    function (x) data.frame(ch = x$ch, num = x$num + 1, row.names = rownames(x))) 
unsplit(changed2, df$ch) 

3) Wenn Sie den Datenrahmen zu rekonstruieren, so dass es mehr Zeilen, dann müssen Sie neue einzigartige Reihe Namen synthetisieren, wie zum Beispiel in @ Mark Peterson-Lösung.

Answer 2

Sie müssen manuell die rownames überschreiben die „doppelte rownames“ Fehler zu vermeiden, zB ,:

changed <- lapply(divided, function (x) { 
    temp <- data.frame("ch" = x$ch, "num" = x$num + 1) 
    row.names(temp) <- 
    paste(x$ch, 1:nrow(x), sep = ".") 

    return(temp) 
    }) 

unsplit(changed, df$ch) 

Als Neben Besuche bind_rows von dplyr als Alternative do.call zu verwenden, die Sie machen können bereite weg nur zu Fuß von unsplit