Ищем определенные буквы в слове

Question

Я должен написать функцию, которая выводит определенные буквы из слова и считает их.

Например, function("Testabc",letter[2:5]) = 3, так как только "b", "c", "e" во втором5 буквы латинского алфавита.

Answer 1

На основании предоставленной вами очень ограниченной информации

seek_count <- function(s,v) {
  as.data.frame(table(na.omit(factor(r<-unlist(strsplit(s,split = "")),levels = intersect(v,r))),dnn = "letter"))
}

Выполнить seek_count("Testabc",letters[2:5]) вы получите вывод:

structure(list(letter = structure(1:3, .Label = c("b", "c", "e"), class = "factor"), Freq = c(1L, 1L, 1L)), class = "data.frame", row.names = c(NA, -3L))