rbind 数据帧，重复的行名问题

Question

虽然matrix 中允许重复的行（和列）名称，但data.frame 中不允许出现重复的行（和列）名称。尝试rbind() 一些具有共同行名的数据框突出了这个问题。考虑以下两个数据框：

foo = data.frame(a=1:3, b=5:7)
rownames(foo)=c("w","x","y")
bar = data.frame(a=c(2,4), b=c(6,8))
rownames(bar)=c("x","z")
# foo               bar
#   a b               a b
# w 1 5             x 2 6
# x 2 6             y 4 8
# y 3 7

现在尝试rbind()他们（注意行名）：

rbind(foo, bar)
#    a b
# w  1 5
# x  2 6
# y  3 7
# x1 2 6
# z  4 8

但是对于matrix的情况：

rbind(as.matrix(foo), as.matrix(bar))
#   a b
# w 1 5
# x 2 6
# y 3 7
# x 2 6
# z 4 8

这里是问题：如何rbind() 两个数据框，删除重复的行（具有相同的行名）？

Answer 1

怎么样

duprows <- which(!is.na(match(rownames(bar),rownames(foo))))
rbind(foo,bar[-duprows,])

?

或者（基于下面的cmets）

duprows <- rownames(bar) %in% rownames(foo)
rbind(foo, bar[!duprows,])

根据 (1) 选择的匹配或不匹配，可能会有多种变化； (2) 为匹配找到数值或逻辑值。

Answer 2

如果我正确理解您所追求的，那么用一行代码就可以做到这一点的一种简洁明了的方式：

unique(rbind(bar, foo))
#   a b
# x 2 6
# z 4 8
# w 1 5
# y 3 7