r：有公共列时合并数据，没有公共列时合并数据的有效方法

Question

我有两个具有重复列的数据框，data1 和 data2。我现在正在运行一个 for 循环，每个循环将 data1 中的一列与 data2 中的整个列合并。例如

数据1：

1 1 3 4 4 
2 5 2 4 2
2 2 8 8 0

数据2

1 4 5 4 5
2 9 3 4 5
2 7 4 8 0

columns 1 and 4 在 data1 和 data2 中重复。对于第一个循环，它合并

1 
2 
2

data2

1 4 5 4 5
2 9 3 4 5
2 7 4 8 0

所以想要的结果是

1 4 5 4 5
2 9 3 4 5
2 7 4 8 0

然后转到second column

 1
 5
 2

它与data2合并

    1 4 5 4 5
    2 9 3 4 5
    2 7 4 8 0

想要的结果是

    1 1 4 5 4 5
    5 2 9 3 4 5
    2 2 7 4 8 0

我的想法是使用combine或者merge函数，但是这两个函数都没有达到想要的输出

for(i in 1:dim(data[2])){
  datam_merge<- merge(data1[i], data2)
}

欢迎提出任何建议！

Answer 1

这应该可以解决问题：

data3 <- dplyr::left_join(data2, data1)
head(data3)

left_join() 函数确定 data2 与 data1 有哪些相同的列，然后只连接从 data1 到 data2 的不同列。

我注意到您的“期望结果”正在从data1 中删除第 5 列。这是故意的，还是您想要的输出是一个新的数据框，其中包含来自 data1 和 data2 的所有列而没有任何重复？

这是另一种可能是更通用的解决方案的方法：

data3 <- dplyr::inner_join(data1, data2)

这只会连接两个数据框之间的唯一列，而不仅仅是data1。

如果这就是你要找的东西，请告诉我！

编辑： 这是我的例子：

data1 <- data.frame(c(1,2,2),c(1,5,2),c(3,2,8),c(4,4,8),c(4,2,0))
names(data1) <- c("A","B","C","D","E")
data2 <- data.frame(c(1,2,2),c(4,9,7),c(5,3,4),c(4,4,8),c(5,5,0))
names(data2) <- c("A","F","G","D","H")

## columns 'A' and 'D' are in common, but we only need one of each letter ('A' through 'E').
data3 <- left_join(data2, data1)
head(data3)
  A F G D H B C E
1 1 4 5 4 5 1 3 4
2 2 9 3 4 5 5 2 2
3 2 7 4 8 0 2 8 0