合并两个数据框并删除重复的列

Question

我想cbind两个数据框并删除重复的列。例如：

df1 <- data.frame(var1=c('a','b','c'), var2=c(1,2,3))
df2 <- data.frame(var1=c('a','b','c'), var3=c(2,4,6))

cbind(df1,df2) #this creates a data frame in which column var1 is duplicated

我想创建一个包含列 var1、var2 和 var3 的数据框，其中列 var2不重复。

Answer 1

如果您继承了别人的数据集并最终以某种方式得到了重复的列并想要处理它们，这是一个很好的方法：

for (name in unique(names(testframe))) {
  if (length(which(names(testframe)==name)) > 1) {
    ## Deal with duplicates here. In this example
    ## just print name and column #s of duplicates:
    print(name)
    print(which(names(testframe)==name))
  }
}

Answer 2

dplyr 中的函数 mutate 可以采用两个数据帧作为参数，第二个数据帧中的所有列将覆盖第一个数据帧中的现有列。第一个数据框中不存在的列将在新数据框中构建。

> mutate(df1,df2)
   var1 var2 var3
 1    a    1    2
 2    b    2    4
 3    c    3    6

Answer 3

merge 可以完成这项工作。

尝试：

merge(df1, df2)