R-我们如何使用grepl或str_detect Againts向量列表？ C（）

Question

如何针对向量中的列表使用grepl函数？

所以我想做的是...

Campaign                 Vendor         
yy                        yyxxx       
yxzrr                     yxz         
xxx3                      yz          
xxx4                      xxx4_zh     
xxx5                      xxx5_xj_78 

...更多100,000行

给定此数据框，我想找到哪个“供应商”与“广告系列”匹配。 但是由于没有完全匹配的内容，因此我想使用grepl或grep或str_detect函数来映射它们，如果它们匹配，我想在新列中插入带有Campaign的新行

有没有办法有效地自动执行此映射过程？

我尝试使用，如下所示...

但是没有正常工作

Campaign_list <- unique(Campaign)

ifelse(grepl(c(Campaign_list), DCM$Campaigns), "Y", "N")

Answer 1

函数Vectorize将帮助：

DCM <- read.table(text = c('
  Campaign                 Vendor         
  yy                        yyxxx       
  yxzrr                     yxz         
  xxx3                      yz          
  xxx4                      xxx4_zh     
  xxx5                      xxx5_xj_78'
  ), header = TRUE )

vgrepl <- Vectorize(grepl)

# rows in Vendor that match with Campaign:
vgrepl(DCM$Vendor, DCM$Campaign)
[1] FALSE  TRUE FALSE FALSE FALSE

# rows in Campaign that match with Vendor:
vgrepl(DCM$Campaign, DCM$Vendor)
[1]  TRUE FALSE FALSE  TRUE  TRUE

# Combining both:
ifelse(apply(cbind(vgrepl(DCM$Vendor, DCM$Campaign), vgrepl(DCM$Campaign, DCM$Vendor)), 1, any), 'Y', 'N')
[1] "Y" "Y" "N" "Y" "Y"