如何使用*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行：

null

> 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>

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

> 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中一样，我们可以使用或来交替连接条件

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