Question

我一直在尝试根据两列共有的正则表达式列表来部分匹配两列内容：

dats<-data.frame(ID=c(1:3),species=c("dog","cat","rabbit"),
species.descriptor=c("all animal dog","all animal cat","rabbit exotic"),product=c(1,2,3),
product.authorise=c("all animal dog cat rabbit","cat horse pig","dog cat"))

旨在实现这一目标：

goal<-data.frame(ID=c(1:3),species=c("dog","cat","rabbit"),
            species.descriptor=c("all animal dog","all animal cat","rabbit exotic"),
            product=c(1,2,3),product.authorise=c("all animal dog cat rabbit","cat horse pig",
            "dog cat"), authorised=c("TRUE","TRUE","FALSE"))

所以要进一步解释，如果＆＃39; dog＆＃39;出现在两列中的任何一点，然后这将被视为“真实”＆＃39;在$ match中 - 这将适用于任何单个物种描述符。如果没有找到匹配，那么返回FALSE或na就可以了。

到目前为止，我已经达到了这一点：

library(stringr)
patts<-c("dog","cat","all animal")
reg.patts<-paste(patts,collapse="|")
dats$matched<-ifelse((str_extract(dats$species.descriptor,reg.patts) == str_extract(dats$product.authorise,reg.patts)),"TRUE","FALSE")
dats
  ID species species.descriptor product         product.authorise matched
   1     dog     all animal dog       1 all animal dog cat rabbit    TRUE
   2     cat     all animal cat       2             cat horse pig   FALSE
   3  rabbit      rabbit exotic       3                   dog cat    <NA>

正如您所看到的，这正确地将第一行和最后一行标识为＆＃39;所有动物＆＃39;在两个字符串中首先出现，并且在最后一个字符串中根本没有匹配。然而，当reg exp没有首先出现在字符串中时，似乎很难（如第二行）。我已经尝试过str_extract_all，但到目前为止只导致错误消息。我想知道是否有人可以提供帮助，拜托？

Answer 1

以下是使用dplyr进行配管的解决方案。核心组件使用grepl进行species和species.descriptor中product.authorised的逻辑字符串匹配。

library(dplyr)
dats %>%
rowwise() %>%
mutate(authorised = 
           grepl(species, species.descriptor) & 
           grepl(species, product.authorise)
       )

Source: local data frame [3 x 6]
Groups: <by row>

     ID species species.descriptor product         product.authorise authorised
  (int)  (fctr)             (fctr)   (dbl)                    (fctr)      (lgl)
1     1     dog     all animal dog       1 all animal dog cat rabbit       TRUE
2     2     cat     all animal cat       2             cat horse pig       TRUE
3     3  rabbit      rabbit exotic       3                   dog cat      FALSE

如果你真的喜欢stringr，可以使用str_detect函数获得更加用户友好的语法。

library(stringr)
dats %>%
mutate(authorised = 
           str_detect(species.descriptor, species) & 
           str_detect(product.authorise, species)
       )

如果您不喜欢dplyr，可以直接添加列

dats$authorised <- 
    with(dats, 
         str_detect(species.descriptor, species) & 
             str_detect(product.authorise, species)
         )

部分字符串匹配两列R.

1 个答案: