如果另一个数据框中存在组合，则R检查行的行[重复]

3 回答

• 6

  一种方法是使用 base R 方法 .

  将列 pnr 和 drug 粘贴在一起并在 df1 中找到类似的 match

  df1$check <- ifelse(is.na(match(paste0(df1$pnr, df1$drug), 
                                          paste0(df2$pnr, df2$drug))),"No", "Yes")
  
  #  pnr drug check
  #1   1    1    No
  #2   1    2   Yes
  #3   2    2   Yes
  #4   3    2    No
  

  回复于 2024-05-16T07:05:22+08:00
• 4

  我们可以使用 apply ，使用 any 函数检查匹配：

  df1$check <- 
      apply(df1, 1, function(x) 
      ifelse(any(x[1] == df2$pnr & x[2] == df2$drug), 'yes','no'))
  
  # df1
  
  #    pnr drug check
  # 1   1    1    no
  # 2   1    2   yes
  # 3   2    2   yes
  # 4   3    2    no
  

  数据

  df1 <- data.frame(pnr = c(1,1,2,3),
                    drug = c(1,2,2,2))
  
  df2 <- data.frame(pnr = c(1,2),
                    drug = c(2,2))
  

  回复于 2024-05-16T07:05:22+08:00
• 4

  这对于 dplyr::left_join 来说很自然：

  library(dplyr) # for left_join, transmute
  library(tidyr) # for replace_na
  
  df1 <- expand.grid(pnr = 1:3, drug = 1:3)
  df2 <- data.frame(pnr = c(1, 3), drug = c(2, 1))
  
  df1 <- df1 %>%
    left_join(df2 %>% transmute(pnr, drug, check = 'yes')) %>%
    replace_na(list(check = 'no'))
  
  df1
  
  #>   pnr drug check
  #> 1   1    1    no
  #> 2   2    1    no
  #> 3   3    1   yes
  #> 4   1    2   yes
  #> 5   2    2    no
  #> 6   3    2    no
  #> 7   1    3    no
  #> 8   2    3    no
  #> 9   3    3    no
  

  回复于 2024-05-16T07:05:22+08:00