从两个数据框的左连接添加逐行特定列结果

Question

信息：所以我有 2 个数据框，我们称它们为 dfa 和 dfb。 Dfa 有一个我感兴趣的东西的主列表，而 dfb 有一个我想在 dfa 中检查的东西的列表，如果它们已经存在的话。 根据 dfa 中的项目是否已经存在于 b 中，我正在使用左连接将列中的一些信息从 dfb（注）转移到 dfa。

目标：我想创建一个列，如果它尚未包含在 dfa 中，则显示类似“True”或数值的列。 或者表示它存在于两个文件中的值，无论哪种方式都可以。

优先使用 dplyr。

例子：

dfa <- data.frame(
ID = c(11,42,21,3,4),
Name = c("ab", "bc", "cd", "de","fg")
)

dfb <- data.frame(
ID = c(11,32,11,3),
Name = c("ab", "bb", "fd", "de"),
Note = c("blue","white","black","yellow")
)

join <- left_join(dfa, dfb, by = c("ID","Name")) %>%
  mutate( new = case_when(dfa$ID %in% dfb$ID ~ "exists") )

这只是通过它创建了一个带有 NA 的“新” col。 我尝试了另一种方法：

join <- left_join(dfa, dfb, by = c("ID","Name")) %>%
  mutate( new = case_when(dfa$ID == dfb$ID ~ "exists") )

这给了我一个关于 dfs 长度的错误，因为在现实生活中，两个 dfs 的长度不同（rownum）。

join <- left_join(dfa, dfb, by = c("ID","Name")) %>%
  mutate( new = case_when(dfa$ID !%in% dfb$ID ~ "is new") )

还给了我关于 df 长度的问题。

所需的 output 看起来像：

join:
ID Name new
11 "ab" "exists"
42 "bc"  
21 "cd" 
3 "de" "exists"
4 "fg" 
32 "fd" 
11 "de"

或者只是在底部的两个新列中“是新的”。 相同的区别，将不胜感激。 谢谢！

Answer 1

国际大学联盟：

inner_join_id = intersect(dfa$ID, dfb$ID)
dfa %>% full_join(dfb, by=c('ID', 'Name')) %>% mutate(exists = if_else(ID %in% inner_join_id, 'exists', ''))

output：

  ID Name   Note exists
1 11   ab   blue exists
2 42   bc   <NA>       
3 21   cd   <NA>       
4  3   de yellow exists
5  4   fg   <NA>       
6 32   bb  white       
7 11   fd  black exists

这是“表示它存在于两个文件中的值”，但看起来不像您按预期添加的 output，所以我不确定我是否误解了某些东西，因为在您的示例中，我看到 dfa 中的所有内容都标记为“存在”

Answer 2

library(dplyr)

union(dfa,dfb |> select(Name, ID)) |> 
  left_join(mutate(intersect(dfa, dfb |> select(names(dfa))), new = 1), by = c('Name', 'ID')) |> 
  mutate(new = if_else(is.na(new), 0, new))

#   ID Name new
# 1 11   ab   1
# 2 42   bc   0
# 3 21   cd   0
# 4  3   de   1
# 5  4   fg   0
# 6 32   bb   0
# 7 11   fd   0