计算字符串末尾出现的次数

【问题标题】：Count number of occurrences at end of string计算字符串末尾出现的次数
【发布时间】：2015-10-21 16:24:30
【问题描述】：

我想用正则表达式计算字符串末尾有多少个逗号：

x <- c("w,x,,", "w,x,", "w,x", "w,x,,,")

我想得到：

[1] 2 1 0 3

这给出了：

library(stringi)
stringi::stri_count_regex(x, ",+$")
## [1] 1 1 0

因为我使用的是量词，但不知道如何计算单个字符最后重复的实际次数。

【问题讨论】：

标签： r

【解决方案1】：

regexpr 中的 "match.length" 属性似乎可以完成工作（-1 用于区分不匹配和零宽度匹配，例如前瞻）

attr(regexpr(",+$", x), "match.length")
## [1] 2  1 -1  3

另一个选项（来自@JasonAizkalns 的贡献）是

nchar(x) - nchar(gsub(",+$", "", x))
## [1] 2 1 0 3

或者在指定, keepNA = TRUE 时使用stringi 包与nchar 组合（这样不会将匹配项指定为NAs）

library(stringi)
nchar(stri_extract_all_regex(x, ",+$"), keepNA = TRUE)
## [1] 2  1 NA  3

【讨论】：