如何使用*替代*列合并R中的数据帧

Question

我正在尝试在R中合并2个数据帧，但是我有两个具有不同ID变量类型的不同列。有时一行中的某个列将具有值，而另一列则没有。我想同时考虑它们，因此，如果一帧缺少其中一列的值，则将使用另一帧。

> df1 <- data.frame(first = c('a', 'b', NA),  second = c(NA, 'q', 'r'))
> df1
first second
1     a   <NA>
2     b      q
3  <NA>      r

> df2 <- data.frame(first = c('a', NA, 'c'),  second = c('p', 'q', NA))
> df2
  first second
1     a      p
2  <NA>      q
3     c   <NA>

我想合并这两个数据框并获得2行：

• 第1行，因为它具有与“ first”相同的值
• 第2行，因为它具有与“ second”相同的值
• 第3行将被删除，因为df1的值为“ second”，而不是“ first”，而df2的值为相反

在这种情况下，NA必须被忽略并且不要“匹配”，这一点很重要。

我可以接近一点：

> merge(df1,df2, by='first', incomparables = c(NA))
  first second.x second.y
1     a     <NA>        p
> merge(df1,df2, by='second', incomparables = c(NA))
  second first.x first.y
1      q       b    <NA>

但是我不能将这两个数据框一起捆扎在一起，因为它们具有不同的列名，和这似乎不是“ R”方式（在不久的将来，我'将具有第三，第四甚至第五种类型的ID。

有没有那么笨拙的方法？

编辑：理想情况下，输出应如下所示：

> df3 <- data.frame(first = c('a', 'b'), second = c('p','q'))
> df3
  first second
1     a      p
2     b      q

• 第1行之所以匹配，是因为两个数据帧中的“ first”列具有相同的值，并且它填充了df2中的“ second”值
• 第2行之所以匹配，是因为“秒”列在两个数据帧中都具有相同的值，并且它填充了df1中的“第一”值
• 没有第3行，因为在两个数据帧中都没有值相同的列

Answer 1

我们可以使用sqldf进行操作，就像在SQL中一样，我们可以使用OR在连接条件之间进行切换

library(sqldf)
df <- sqldf("select a.*, b.*
               from df1 a
               join df2 b
                    ON a.first = b.first
                    OR a.second = b.second")


library(dplyr)
       #If value in first is NA i.e. is.na(first) is TRUE then use first..3 value's else use first value's and the same for second
df %>% mutate(first = ifelse(is.na(first), first..3, first),
              second = ifelse(is.na(second), second..4, second)) %>% 
       #Discard first..3 and second..4 since we no longer need them    
       select(-first..3, -second..4) 

  first second
1     a      p
2     b      q