У меня есть список, состоящий из слов.

> head(splitWords2)
[[1]]
 [1] "Some"        "additional"  "information" "that"        "we"          "would"       "need"        "to"          "replicate"   "the"        
[11] "experiment"  "is"          "how"         "much"        "vinegar"     "should"      "be"          "placed"      "in"          "each"       
[21] "identical"   "container"   "or"          "what"        "tool"        "use"         "measure"     "mass"        "of"          "four"       
[31] "different"   "samples"     "and"         "distilled"   "water"       "rinse"       "after"       "taking"      "them"        "out"        

[[2]]
 [1] "After"       "reading"     "the"         "expirement"  "I"           "realized"    "that"        "additional"  "information" "you"        
[11] "need"        "to"          "replicate"   "expireiment" "is"          "one"         "amant"       "of"          "vinegar"     "poured"     
[21] "in"          "each"        "container"   "two"         "label"       "containers"  "before"      "start"       "yar"         "and"        
[31] "three"       "write"       "a"           "conclusion"  "make"        "sure"        "results"     "are"         "accurate" 

У меня есть вектор слов, который я хочу подсчитать вхождения в КАЖДОМ элементе списка, а НЕ в общем количестве вхождений во всем списке.

Я думаю, что способ сделать это является сочетаниеstr_count() функция отstringr пакет и один из*ply() функции, но я не могу заставить его работать.

numWorder1 <- sapply(ifelse(str_count(unlist(splitWords2), ignore.case("we" ) )> 0, 1, 0))

где "мы" в конечном итоге будет слово из вектора слов для подсчета случаев.

Мой идеальный вывод будет что-то вроде:

lineNum       count
   1           0
   2           1
   3           1
   4           0
  ...         ...

Какие-либо предложения?