r - 有一个特定的列表查找存在多少次

Question

如果我有一个包含如下术语的特定列表:

df_specific <- data.frame(terms = c("hi", "why here", "see you soon"))

和一个带有文本的框架

df_text <- data.frame(text = c("hi my name is", "why here you are", 
                      "hi see you later", "I hope to see you soon"))

如何使用第一个列表作为索引来查找df_text中存在多少次？

预期输出示例:

term num
hi    2
why here 1
see you soon 1

Answer 1

您可以将 grepl 用于单个术语，并使用 sapply 将其映射到所有测试术语。

sapply(df_specific$terms, function(x) sum(grepl(x, df_text$text)))
[1] 2 1 1

如果您想获取列出的特定格式，只需将之前的结果cbind到 df_specific

num = sapply(df_specific$terms, function(x) sum(grepl(x, df_text$text)))
cbind(df_specific, num)

         terms   num
1           hi     2
2     why here     1
3 see you soon     1