R中的字符串计数

【问题标题】：String count in RR中的字符串计数
【发布时间】：2017-05-23 09:54:55
【问题描述】：

我正在尝试构造一个类似于 str_count 的函数。

fruit <- c("apple", "banana", "pear", "pineapple")
str_count(fruit, "a")

但不是指定字母，该函数应该能够计算最大重复字符数。

所以输出应该是：

 Input    Output
 apple       2
 banana      3
  pear       0

我找到了答案here。但它是用 C++ 编写的。

有什么想法可以在 R 中做到这一点吗？

【问题讨论】：

标签： r string

【解决方案1】：

我们将'fruit'拆分为字符，检查是否有重复然后获取频率的max，否则返回0

sapply(strsplit(fruit, ""), function(x) if(anyDuplicated(x)) max(table(x)) else 0)
#[1] 2 3 0 3

或者稍微紧凑一些

sapply(strsplit(fruit, ""), function(x) (anyDuplicated(x)!=0) * max(table(x)))

【讨论】：