混合词向量的多项grep函数

Question

TEST<- function(x){
test <- data1[grep(x, data1$REMARKS),]
test1 <- test%>%
group_by(date)%>%
summarise(tot = sum(TOTAL, na.rm = T))
y <- ggplot(test1, aes(date, tot)) + geom_point() + geom_line()
return(y)
}

这是我在做的一个功能..。数据集中有一个包含多个单词的向量。本质上，我想要做的是创建一个函数(可能是闪亮的)，在这里我可以输入多个单词，这将从向量中提取行进行分析。用grep函数可以做到这一点吗？上面的函数工作得很好，但只有一个词。谢谢。

Answer 1

一种可能是基于多个单词构建regexp搜索表达式。下面是一个示例：

# Sample words
words <- c("word1", "word2", "word3");

# Construct regexp expression from list of words
makeRegExpr <- function(words) {
    return(sprintf("(%s)",paste(words, collapse = "|")))
}
makeRegExpr(words);
#[1] "(word1|word2|word3)"

然后，您可以在函数中使用makeRegExpr(words)来筛选与任何这些单词匹配的条目。

TEST <- function(words) {
    test <- data1[grep(makeRegExpr(words), data1$REMARKS), ]
    ...
}