在不同的列中找到相交的行并标记它们

Question

我正在寻找有关如何正确标记数据框中相交行的解决方案。

这样的

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

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

我想创建列名match ，如果存在常见的相交行值，则将它们标记为intersected否则为no.intersect 。

我试过了

df%>%
  mutate(match=ifelse(isTRUE(intersect(id,di)),"intersected","no.intersect"))

它输出

      id    di        match
1   good  good no.intersect
2    bad     2 no.intersect
3   ugly  good no.intersect
4  dirty dirty no.intersect
5  clean     4 no.intersect
6 frenzy  ugly no.intersect

尽管第1行和第4行存在相交。

Answer 1

library(dplyr)

# example dataframe
# (non factor variables)
df = data.frame(id=c("good","bad","ugly","dirty","clean","frenzy"),
                di=c("good",2,"good","dirty",4,"ugly"), 
                stringsAsFactors = F)

# check equaity of values at each row
df %>% mutate(match = ifelse(id == di, "intersected", "no.intersect"))

#       id    di        match
# 1   good  good  intersected
# 2    bad     2 no.intersect
# 3   ugly  good no.intersect
# 4  dirty dirty  intersected
# 5  clean     4 no.intersect
# 6 frenzy  ugly no.intersect    

另外，如果要使用intersect ，可以像这样使用它：

df %>%
  rowwise() %>%
  mutate(match = ifelse(length(intersect(id,di)) > 0, "intersected", "no.intersect")) %>%
  ungroup()

# # A tibble: 6 x 3
#   id     di    match       
#   <chr>  <chr> <chr>       
# 1 good   good  intersected 
# 2 bad    2     no.intersect
# 3 ugly   good  no.intersect
# 4 dirty  dirty intersected 
# 5 clean  4     no.intersect
# 6 frenzy ugly  no.intersect

因为intersect不是向量化的（所以您需要rowwise ），并且它不返回TRUE或FALSE（所以您不能使用isTRUE ）。 如果有匹配项，它将返回实际值；否则，将不返回任何值。

Answer 2

如果您要比较id和di之间的相等性，请尝试：

df %>% mutate(match = ifelse(id == di, "intersected", "no.intersect"))