Нахождение необычных строк из двух фреймов данных, каждый из которых имеет несколько не уникальных строк

Question

Поиск необычных строк из двух фреймов данных, каждый из которых имеет несколько неуникальных строк, каждый из которых сопоставляется один раз. Для получения более подробной информации о проблеме, обратитесь к изображению ниже Объяснение и желаемый результат

df1<-data.frame("ID"=c("123","124","123"), "Amt"=c("57365","57365","57365"))
df2<-data.frame("ID"=c("123"), "Amt"=c("57365"))

Answer 1

Использование dplyr:

library(dplyr)

df1<-data.frame("ID"=c("123","124","123"), "Amt"=c("57365","57365","57365"))
df2<-data.frame("ID"=c("123"), "Amt"=c("57365"))

df3 <- df1 %>%
  inner_join(df2, by="ID") %>%
  distinct()

Это просто возвращает row1 из df1.Я надеюсь, что это полезно.

Answer 2

Мы можем сделать join с data.table

unique(setDT(df1)[df1[df2, .I, on = .(ID)]])
#    ID   Amt
#1: 123 57365
#2: 124 57365