搜索不同列中的匹配行

使用 base R 而且没有 if/else 语句,您可以计算 match 包含以下内容的列:

df$match <- c("no matches", "has matches")[(df$di %in% df$id) + 1]
df
#      id    di       match
#1   good     1  no matches
#2    bad     2  no matches
#3   ugly  good has matches
#4  dirty dirty has matches
#5  clean     4  no matches
#6 frenzy  ugly has matches

仅使用 %in% 具有 ifelse

df %>% 
   mutate(match = ifelse(di %in% id, "has matches", "no matches"))

或 case_when

df %>% 
   mutate(match = case_when(di %in% id ~ "has matches",
                                   TRUE ~ "no matches"))

这可以直接包装在函数中。假设我们传递的是无引号的名称,然后将其转换为quosure enquo 然后在 mutate 通过 !!

f1  <- function(dat, col1, col2) {
    col1 = enquo(col1)
    col2 = enquo(col2)
    dat %>%
        mutate(match = case_when(!! (col1) %in% !!(col2) ~ "has matches", 
                 TRUE ~ "no matches"))
}
f1(df, di, id)
#      id    di       match
#1   good     1  no matches
#2    bad     2  no matches
#3   ugly  good has matches
#4  dirty dirty has matches
#5  clean     4  no matches
#6 frenzy  ugly has matches