如何使用* alternative *列合并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行，因为它具有相同的“第一”值
• 第2行，因为它具有相同的“秒”值
• 第3行将被删除，因为df1的值为“second”，但不是“first”，而df2的反向为

在这种情况下，NAs被忽略并且不“匹配”是很重要的。

我可以近距离接触：

> 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”方式（在不久的将来，我将有第3，第4甚至第5） 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行已匹配，因为列“second”在两个数据帧中具有相同的值，并且它从df1填充“first”的值
• 没有第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