Блог

У меня есть два разных фрейма данных ‘df1’ и ‘df2’ с шестью совпадающими именами столбцов. Я хочу просканировать df2 на наличие строк, которые точно совпадают в df1, и если они есть, введите 1 в столбец «обнаружение» df1, а если нет, введите 0 в этот столбец. В настоящее время все значения ‘detect’ в df1 равны 0, но я хочу, чтобы они менялись на 1, когда между двумя фреймами данных есть точное совпадение. Это будет выглядеть так:

df1

df2

После их сканирования df1 теперь будет выглядеть так:

df1

Я думал, что базовая функция R ‘merge’ может быть полезной, но я не совсем понимаю это. Спасибо за вашу помощь!

Начните detect только со столбца в df2 , затем объедините:

 df1$detect = NULL
df2$detect = 1
result = merge(df1, unique(df2), all.x = TRUE)
 

Это создаст detect столбец как 1s, когда есть точные совпадения, и NA s, когда их нет. Если вы хотите, вы можете изменить NA s на 0s.

Тот же метод может работать с dplyr :

 library(dplyr)
df1 %>% 
  select(-detect) %>%
  left_join(
    df2 %>% mutate(detect = 1) %>% unique)
  )
 

Существует anti_join и semi_join для объединения фильтров двух таблиц:

 library(tidyverse)

df1 <- tribble(
  ~site,      ~ddate, ~ssegment,   ~spp, ~vtype, ~tperiod, ~detect,
  "BMA",  "6/1/2021",        1L, "AMRO", "Song",       1L,      0L,
  "BMC", "6/15/2021",        1L, "WISN", "Drum",       1L,      0L,
  "BMA", "6/15/2021",        1L, "NOFL", "Song",       2L,      0L,
  "BMC", "6/29/2021",        2L, "AMRO", "Call",       1L,      0L,
  "BMA", "6/29/2021",        2L, "WISN", "Call",       2L,      0L
  )

df2 <- tibble::tribble(
~site,      ~ddate, ~ssegment,   ~spp, ~vtype, ~tperiod,
"BMA",  "6/1/2021",        1L, "AMRO", "Call",       1L,
"BMC", "6/15/2021",        1L, "WISN", "Drum",       1L,
"BMA", "6/15/2021",        1L, "NOFL", "Song",       2L,
"BMC", "6/29/2021",        2L, "AMRO", "Drum",       1L,
"BMA", "6/29/2021",        2L, "WISN", "Call",       2L
)


bind_rows(
  df1 %>% select(-detect) %>% anti_join(df2) %>% mutate(detect = 0),
  df1 %>% select(-detect) %>% semi_join(df2) %>% mutate(detect = 1)
)
#> Joining, by = c("site", "ddate", "ssegment", "spp", "vtype", "tperiod")
#> Joining, by = c("site", "ddate", "ssegment", "spp", "vtype", "tperiod")
#> # A tibble: 5 x 7
#>   site  ddate     ssegment spp   vtype tperiod detect
#>   <chr> <chr>        <int> <chr> <chr>   <int>  <dbl>
#> 1 BMA   6/1/2021         1 AMRO  Song        1      0
#> 2 BMC   6/29/2021        2 AMRO  Call        1      0
#> 3 BMC   6/15/2021        1 WISN  Drum        1      1
#> 4 BMA   6/15/2021        1 NOFL  Song        2      1
#> 5 BMA   6/29/2021        2 WISN  Call        2      1
 

^{Создано 2021-12-08 пакетом reprex (v2.0.1)}

Пожалуйста, найдите одно возможное и очень простое решение с data.table помощью библиотеки

Reprex

• Код

 library(data.table)

setDT(df1)
setDT(df2)

df1[df2, on = .(site, ddate, ssegment, spp, vtype, tperiod), detect := TRUE][]
 

• Вывод

 
#>    site     ddate ssegment  spp vtype tperiod detect
#> 1:  BMA  6/1/2021        1 AMRO  Song       1      0
#> 2:  BMC 6/15/2021        1 WISN  Drum       1      1
#> 3:  BMA 6/15/2021        1 NOFL  Song       2      1
#> 4:  BMC 6/29/2021        2 AMRO  Call       1      0
#> 5:  BMA 6/29/2021        2 WISN  Call       2      1
 

^{Создано 2021-12-08 пакетом reprex (v2.0.1)}