他のベクトルに少なくとも1つの文字列を含むベクトルのインデックスを返す方法

Question

動詞を含むリストがあります。私は文章を含む別のリストを持っています。その文の動詞リストに少なくとも動詞を含む文リストのインデックスを返すにはどうすればよいですか？

verbList <- c("punching", "kicking", "jumping", "hopping") 
sentenceList <- c("I am punching", "I like pineapples", "I am hopping", "I am kicking and jumping") 

私はそれがstringrとrebusからインデックス1、3、および4

Answer 1

、：

オリジナル質問：

verbList <- list("punching, kicking, jumping, hopping") 
sentenceList <- c("I am punching", "I like pineapples", "I am hopping", "I am kicking and jumping") 

    v <- gsub(", ", "|", verbList) 
    grep(v, sentenceList) 

新しい問題：

verbList <- c("punching", "kicking", "jumping", "hopping") 
sentenceList <- c("I am punching", "I like pineapples", "I am hopping", "I am kicking and jumping") 
v <- paste(verbList, collapse = "|") 
grep(v, sentenceList) 

Answer 2

ソリューションを返すようにしたいです。最初に文字列を分割してから、str_whichを使用して、パターンがベクトル内にあるかどうかを調べてインデックスを返すことができます。次のように私たちは、ソートの "または" 別の検索語が一緒に|を使用することができ、追加のパッケージを使用していない

library(stringr) 
library(rebus) 

# Check the index 
result <- str_which(sentenceList, or1(verbList)) 
result 
# [1] 1 3 4