Pattern Matching в R

Question

У меня есть список, как

> list(c("a","b","c","d"),c("b","c","e")) 
[[1]] 
[1] "a" "b" "c" "d" 

[[2]] 
[1] "b" "c" "e" 

У меня есть последовательность "БК". Я хочу сопоставить этот шаблон с моим списком и хочу узнать частоту этого шаблона. Обязательный результат: 2 Прежде всего, мне нужно преобразовать свой список в этот формат c("abcd"),c("bce"), чтобы я мог выполнить сопоставление. Как конвертировать и сопоставлять? Во-вторых, как рассчитать и сохранить частоту?

Я использовал функцию grepl, но возвращает логическое значение, а не счет.

Answer 1

Использование @ выборочных данных Тайлера, вы можете использовать gregexpr:

lst <- list(c('a', 'b', 'c', 'd', 'b', 'c'), 
      c('b', 'c', 'e')) 
lst2 <- lapply(lst, paste, collapse="") 
sapply(gregexpr("bc", lst2, fixed = TRUE), length) 
# [1] 2 1 

Answer 2

Вот один подход с использованием term.count (а не экспортируемой функции) из пакета qdap:

lst <- list(c('a', 'b', 'c', 'd', 'b', 'c'),c('b', 'c', 'e')) 
lst2 <- lapply(lst, paste, collapse="") #use lapply to paste the list 

## install.packages("qdap") 
sapply(lst2, qdap:::term.count, "bc") #count occurences 

## > sapply(lst2, qdap:::term.count, "bc") 
## bc bc 
## 2 1 

Если вы не хотите использовать qdap посмотреть на источник для term.count и принять то, что вам нужно.