基于来自另一个表的搜索字符串的R更新表列

Question

我试图根据同一个表中的单元格A的值更新表中的单元格B.要过滤我要更新的行，我正在使用grepl将单元格A与列表/表格/矢量或某些其他外部源的字符串列表进行比较。对于单元格A与搜索条件匹配的所有行，我想更新单元格B以表示“xxxx”。我需要为我的表中的所有行执行此操作。

到目前为止，我有这样的东西，其中cat1是某种有字符串搜索的列表。

for (x in 1:length(cat1)){ 
    data %<>% mutate(Cat = ifelse(grepl(cat1[i],ItemName),"xxx",Cat)) 
} 

我愿意接受任何更好的方法来完成这一点。我已经尝试了与数据框的循环，并且我开放给data.table解决方案。

谢谢。

Answer 1

为了避免循环，可以用|折叠字符向量，然后使用它作为在grepl单个图案，例如可以尝试：

cat1_collapsed <- paste(cat1, collapse = "|") 
data %>% mutate(Cat = ifelse(grepl(cat1_collapsed, ItemName),"xxx", Cat)) 

或同等使用data.table（当然或碱R） 。

Answer 2

使用以下代码假设你有称为“数据”与列“A”和“B”，并且将数据帧“CAT1”是所希望的字符串的载体，如所描述

library(data.table) 
setDT(data) 
data[A %in% cat1,B:="XXXX"]