rbind due data.frame che conserva l'ordine delle righe e i nomi delle righe

Question

Ho una lista di oggetti data.frame che vorrei aggiungere una riga l'una all'altra, ovvero merge(..., all=T). Tuttavia, merge sembra rimuovere i nomi delle righe che devo mantenere intatti. Qualche idea? Esempio:

x = data.frame(a=1:2, b=2:3, c=3:4, d=4:5, row.names=c("row_1", "another_row1")) 
y = data.frame(a=c(10,20), b=c(20,30), c=c(30,40), row.names=c("row_2", "another_row2")) 
> merge(x, y, all=T, sort=F) 
    a b c d 
    1 1 2 3 4 
    2 2 3 4 5 
    3 10 20 30 NA 
    4 20 30 40 NA 

Answer 1

Poiché si sa che non sono in realtà la fusione, ma solo rbind-ing, forse qualcosa di simile a questo funzionerà. Fa uso di rbind.fill da "plyr". Per usarlo, specificare una list dei data.frame s che si desidera rbind.

RBIND <- function(datalist) { 
    require(plyr) 
    temp <- rbind.fill(datalist) 
    rownames(temp) <- unlist(lapply(datalist, row.names)) 
    temp 
} 
RBIND(list(x, y)) 
#    a b c d 
# row_1   1 2 3 4 
# another_row1 2 3 4 5 
# row_2  10 20 30 NA 
# another_row2 20 30 40 NA 

Answer 2

Un modo è utilizzare row.names in unione in modo da ottenere come colonna aggiuntiva.

> merge(x, y, by=c("row.names", "a","b","c"), all.x=T, all.y=T, sort=F) 

#  Row.names a b c d 
# 1  row_1 1 2 3 4 
# 2 another_row1 2 3 4 5 
# 3  row_2 10 20 30 NA 
# 4 another_row2 20 30 40 NA 

Edit: Osservando la funzione merge con getS3method('merge', 'data.frame'), il row.names sono chiaramente impostato su NULL (si tratta di un codice piuttosto lunga, quindi non mi incollare qui).

# Commenting 
# Lines 63 and 64 
row.names(x) <- NULL 
row.names(y) <- NULL 

# and 
# Line 141 (thanks Ananda for pointing out) 
attr(res, "row.names") <- .set_row_names(nrow(res)) 

e la creazione di una nuova funzione, diciamo, MERGE, funziona come il PO intende per questo esempio. Solo una sperimentazione.