Giữ tên hàng khi sử dụng rbind.fill trong R

Question

Có ai biết cách giữ tên miền trong hàm rbind.fill không.

library(plyr) 

#creating data 
a <- mtcars[ 1:5 , c("mpg","hp","gear") ] 
b <- mtcars[ 6:10 , c("mpg","disp","gear") ] 

#does not work because there are different colnames 
rbind(a,b) 

#works but eliminates the rownames 
bound <- rbind.fill(a , b) 

Tôi đang thiết lập vòng lặp nơi các đối tượng sẽ được kết nối bằng cách sử dụng rbind.fill. Hiện tại, tôi đang sử dụng chức năng kết hợp như sau:

namess <- c(rownames(a) , rownames(b)) 
rownames(bound) <- namess 

Tôi nghĩ rằng có thể có cách tốt hơn. Cảm ơn!

Answer 1

Vì tôi đã đăng câu hỏi này 5 năm trước - một chức năng mới đã có sẵn. smartbind giải quyết vấn đề này.

library(gtools) 

#creating data 
a <- mtcars[ 1:5 , c("mpg","hp","gear") ] 
b <- mtcars[ 6:10 , c("mpg","disp","gear") ] 

smartbind(a , b) 

Answer 2

Bạn có thể thử áp dụng một chức năng tùy chỉnh mà thực hiện rbind.fill và đặt rownames ban đầu tự như thế:

# List of sample data 
ab.list <- list(a <- mtcars[1:5 , c("mpg","hp","gear")], 
       b <- mtcars[6:10 , c("mpg","disp","gear")]) 

# Apply custom function (rbind and rownames adjustment) to sample data 
do.call(function(...) { 

    tmp <- plyr::rbind.fill(...) 
    rownames(tmp) <- sapply(ab.list, function(i) { 
    rownames(i) 
    }) 

    return(tmp) 

}, ab.list) 

        mpg hp gear disp 
Mazda RX4   21.0 110 4 NA 
Mazda RX4 Wag  21.0 110 4 NA 
Datsun 710  22.8 93 4 NA 
Hornet 4 Drive 21.4 110 3 NA 
Hornet Sportabout 18.7 175 3 NA 
Valiant   18.1 NA 3 225.0 
Duster 360  14.3 NA 3 360.0 
Merc 240D   24.4 NA 4 146.7 
Merc 230   22.8 NA 4 140.8 
Merc 280   19.2 NA 4 167.6 

Check-out this previous post rằng đề với một vấn đề tương tự.