R: Знайте, сколько векторов из списка содержит значение

Question

У меня есть список векторов слов, называемых list_of_sentences.

s1=sample(letters,size = 5,replace = FALSE) 
s2=sample(letters,size = 7,replace = FALSE) 
s3=sample(letters,size = 3,replace = FALSE) 
list_of_sentences=list(s1,s2,s3) 

Предположим, я хочу знать, сколько предложений содержит слово «a». Как бы вы это сделали, зная, что я получил список из 50 000 предложений, построенных из 6000 слов. В основном я ищу для «векторизованного» версии% в% функции для того, чтобы запустить что-то вроде:

vectorized_match_fun("a",list_of_sentences) 
TRUE FALSE TRUE FALSE FALSE FALSE FALSE ... 

Answer 1

Вы можете запустить %in% в пределах применения функции ,

set.seed(13) 
s1=sample(letters,size = 5,replace = FALSE) 
s2=sample(letters,size = 7,replace = FALSE) 
s3=sample(letters,size = 3,replace = FALSE) 
list_of_sentences=list(s1,s2,s3) 

vapply(list_of_sentences, 
     function(x, find) any(find %in% x), 
     "a", 
     FUN.VALUE = logical(1)) 

Основываясь на ваш комментарий на другой ответ, я укажу, что %in% принимает векторы с обеих сторон. Ответ, который я предоставил, позволяет вам использовать это, но при этом возвращает только один логический параметр, указывающий, найдено ли какое-либо совпадение. Тем не менее, я не уверен на 100%, это то, что вы хотите, так как вы не предоставили образец вывода для обработки нескольких слов.

Но рассмотрит

vapply(list_of_sentences, 
      function(x, find) any(find %in% x), 
      find = c("a", "x"), 
      FUN.VALUE = logical(1)) 

Answer 2

Вы можете использовать lapply:

vectorized_match_fun <- function(list_input, matched_word){ 
    unlist(lapply(list_input,function(x){ 
     matched_word %in% x 
    })) 
} 

vectorized_match_fun(list_of_sentences,"a") 
[1] FALSE TRUE FALSE 

vectorized_match_fun(list_of_sentences,"x") 
[1] FALSE FALSE TRUE