搜索不同列中的匹配行

Question

我正在寻找一个可以在列之间找到匹配项并输出的函数，如果找到匹配的行则输出"has matches"否则为"no matches"

例如

df = data.frame(id=c("good","bad","ugly","dirty","clean","frenzy"),di=c(1,2,"good","dirty",4,"ugly"))

> df
      id    di
1   good     1
2    bad     2
3   ugly  good
4  dirty dirty
5  clean     4
6 frenzy  ugly

我想检查di列是否与id列匹配，从而

 > 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

我正在寻找的这种方法

match_func <- function(x,y){

  }

df%>%
  do(match_func(.$id,.$di))

提前致谢！

Answer 1

使用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

Answer 2

只需将%in%与ifelse一起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"))

---

这可以直接包装在函数中。 假设我们传递的是未加引号的名称，然后将其转换为具有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