使用 r 在两列中匹配的单词

Question

我有两个数据框，其中 DF1 是（字典），DF2 是句子。我想以这样的方式进行文本匹配，如果 DF1 中的单词与 DF2 句子匹配（句子中的任何单词），那么输出应该是如果匹配则为是或如果不匹配数据框则为否的列如下：

（DF1）词典：

DF1 <- c("csi", "dsi", "market", "share", "improvement", "dealers", "increase")

（DF2）句子：

DF2 <- c("Customer satisfaction index improvement", "reduction in retail cycle", "Improve market share", "% recovery from vendor")

输出应该是：

客户满意度指数提升（是）

零售周期缩短（否）

提高市场份额（是）

从供应商处回收的百分比（否）

注意-是和否是显示文本匹配结果的不同列 任何人都可以帮助.....提前谢谢

Answer 1

你可以这样做：

df <- data.frame(sentence = c("Customer satisfaction index improvement", "reduction in retail cycle", "Improve market share", "% recovery from vendor"))
words <- c("csi", "dsi", "market", "share", "improvement", "dealers", "increase")

# combine the words in a regular expression and bind it as column yes
df <- cbind(df, yes = grepl(paste(words, collapse = "|"), df$sentence))

---

这输出

                                 sentence   yes
1 Customer satisfaction index improvement  TRUE
2               reduction in retail cycle FALSE
3                    Improve market share  TRUE
4                  % recovery from vendor FALSE

看working on ideone.com。

Answer 2

试试这个：

DF1 <- c("csi", "dsi", "market", "share", "improvement", "dealers", "increase")
DF2 <- c("Customer satisfaction index improvement", "reduction in retail cycle", "Improve market share", "% recovery from vendor")


result <- cbind(DF2, "word found" = ifelse(rowSums(sapply(DF1, grepl, x = DF2)) > 0, "YES", "NO"))

> result
     DF2                                       word found
[1,] "Customer satisfaction index improvement" "YES"     
[2,] "reduction in retail cycle"               "NO"      
[3,] "Improve market share"                    "YES"     
[4,] "% recovery from vendor"                  "NO"