R中数据帧之间的基金ID比较

我认为加入比较在这里效果很好。

library(dplyr)

df_x<-tibble::tribble(
       ~Company,  ~ID,
            "A", 123L,
            "B", 456L,
            "C", 789L
       )

df_y<-tibble::tribble(
       ~Company,  ~ID,
            "B", 453L,
            "A", 123L,
            "C", 789L
       )

df_joined<-df_x %>%
  left_join(df_y, by="Company") %>%
  mutate(discrepancy=(ID.x!=ID.y))

df_joined

#> # A tibble: 3 × 4
#>   Company  ID.x  ID.y discrepancy
#>   <chr>   <int> <int> <lgl>       
#> 1 A         123   123 FALSE       
#> 2 B         456   453 TRUE        
#> 3 C         789   789 FALSE

^{创建于2022-01-09由 reprex package (v2.0.1)}