2

我必须组合两个看起来像这样的数据框我想在数据框之间获取公共列并将它们连接在一起。两个数据帧中的行将完全不同。

      a  b c 
row1  1  0 1      
row2  1  0 1

另一个数据框

     d a c f
row3 1 0 1 1
row4 1 1 0 0

我希望最终的数据集看起来像这样

        a c 
row1    1 1
row2    1 1
row3    0 1
row4    1 0

这是来自两个数据帧的输入

dput(x1)
structure(list(d = c(1L, 1L), a = 0:1, c = c(1L, 0L), f = c(1L, 
0L)), .Names = c("d", "a", "c", "f"), row.names = c("row3", "row4"
), class = "data.frame")

dput(x2)
structure(list(a = c(1L, 1L), b = c(0L, 0L), c = c(1L, 1L)), .Names = c("a", 
"b", "c"), row.names = c("row1", "row2"), class = "data.frame")
4

2 回答 2

6

您可以获取通用名称，然后使用行绑定：

common <- intersect(names(x1), names(x2))
rbind(x1[,common], x2[,common])
     a c
row3 0 1
row4 1 0
row1 1 1
row2 1 1

编辑：匹配您的预期输出

 rbind(x2[,common], x1[,common])
     a c
row1 1 1
row2 1 1
row3 0 1
row4 1 0
于 2013-05-21T16:09:21.013 回答
1

一个非常初级的版本

> X <- merge(x1, x2, all=TRUE)
> X[, which(colSums(!is.na(X))==nrow(X))]
  a c
1 0 1
2 1 0
3 1 1
4 1 1
于 2013-05-21T16:11:13.200 回答