R计算短语中以给定字母开头的单词数答案

【问题标题】：R count the number of words starts with given letter in a phraseR计算短语中以给定字母开头的单词数
【发布时间】：2019-01-21 01:18:03
【问题描述】：

我想获取给定字符串中以给定字母开头的单词的计数次数。

例如，在那个短语中：“那种模式很棒，但猪喜欢牛奶” 如果我想找到以“g”开头的单词数，只有 1 个“great”，但现在我得到 2 个“great”和“pigs”。

这是我使用的代码：

x <- "that pattern is great but pogintless"
sapply(regmatches(x, gregexpr("g", x)), length)

【问题讨论】：

标签： r string

【解决方案1】：

我们需要一个空格或单词边界来避免第一个字母匹配到单词开头以外的字符。另外，最好使用ignore.case = TRUE，因为有些单词可能以大写开头

lengths(regmatches(x, gregexpr("\\bg", x, ignore.case = TRUE)))

上面可以包装成一个函数

fLength <- function(str1, pat){
       lengths(regmatches(str1, gregexpr(paste0("\\b", pat), str1, ignore.case = TRUE)))
 }

fLength(x, "g")
#[1] 1

【讨论】：

【解决方案2】：

你也可以用 stringr 库来做

library(stringr)
str_count(str_split(x," "),"\\bg")

【讨论】：