我必须编写一个函数,该函数可以从单词中取出某些字母并对其进行计数。
例如{{1}},因为罗马字母的第二到第五个字母中只有“ b”,“ c”,“ e”。
基于您提供的非常有限的信息
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))