dplyr 连接 A 列或 B 列

Koo*_*133 8 r dplyr

如何使用 dplyrs 连接函数在 R 中通过 OR 语句连接 2 个表?

例如,使用键将 df1 加入 df2:df1_ColumnA == df2_ColumnA 或 df1_ColumnA == df2_ColumnB?

library(dplyr)

df1 = data.frame(V1 = c('A', 'B', 'C','D'), v2 = c(1,2,3,4))
df2 = data.frame(VA = c('A', 'B', 'C'), VB = c('D', 'E', 'F'), vC = c(4,5,6))

## Join on column 1
df3 = df1 %>% left_join(df2, by = c('V1' = 'VA'))

## join on column 1 AND column 2
df4 = df1 %>% left_join(df2, by = c('V1' = 'VA', 'V1' = 'VB'))
Run Code Online (Sandbox Code Playgroud)

这是行不通的:

## join on column 1 OR column 2
df4 = df1 %>% left_join(df2, by = c('V1' = 'VA' | 'V1' = 'VB'))
Run Code Online (Sandbox Code Playgroud)

编辑:预期输出

   V1 v2 VA VB vC
1  A  1  A  D  4
2  B  2  B  E  5
3  C  3  C  F  6
4  D  4  A  D  4
Run Code Online (Sandbox Code Playgroud)

akr*_*run 5

连接OR未实现tidyverse(也可能是错误的)。但是,有一个选项可以将unite感兴趣的列放在一起,然后执行regex_right_join/regex_left_join来自fuzzyjoin

library(fuzzyjoin)
library(dplyr)
df2 %>%
    unite(VAB, VA, VB, remove = FALSE) %>%
    regex_right_join(df1, by = c("VAB" = "V1")) %>% 
    select(names(df1), names(df2))
#.  V1 v2 VA VB vC
#1  A  1  A  D  4
#2  B  2  B  E  5
#3  C  3  C  F  6
#4  D  4  A  D  4
Run Code Online (Sandbox Code Playgroud)