rbind hai data.frame giữ nguyên thứ tự hàng và tên hàng

Question

Tôi có một danh sách các đối tượng mà tôi muốn nối thêm với nhau, tức là merge(..., all=T). Tuy nhiên, merge dường như xóa các tên hàng mà tôi cần giữ nguyên. Bất kỳ ý tưởng? Ví dụ:

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

Vì bạn biết bạn không thực sự hợp nhất, nhưng chỉ cần rbind-ing, có thể một cái gì đó như thế này sẽ làm việc. Nó sử dụng số rbind.fill từ "plyr". Để sử dụng, hãy chỉ định một số list của số data.frame mà bạn muốn 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

Một cách là sử dụng row.names để hợp nhất để bạn lấy cột đó làm cột bổ sung.

> 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: Bằng cách nhìn vào merge chức năng với getS3method('merge', 'data.frame'), các row.names được thiết lập rõ ràng để NULL (nó là một mã khá dài, vì vậy tôi sẽ không dán ở đây).

# 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)) 

và tạo ra một chức năng mới, chẳng hạn, MERGE, hoạt động như OP có ý định cho ví dụ này. Chỉ là một thử nghiệm.