2015-07-24 4 views

ответ

4

stringi может сделать это очень легко.

library(stringi) 
stri_count_fixed(a, "ABDB") 
# [1] 7 
+0

Спасибо, что это сработало –

+1

@DHWANIDHOLAKIA, если это сработало, вы можете принять этот ответ вместо другого – Jaap

3

Вот решение, которое не требует и цикл по строке, ни внешний пакет:

length(unlist(strsplit(paste0(a, "#"), "ABDB"))) - 1 
#[1] 7 

В этой строке кода, "#" это вспомогательный разделитель, который временно прикреплен к концу строка, чтобы убедиться, что вхождения шаблона в конце учтены правильно.

Смежные вопросы