我有一串句子，想计算所有我认为是结束标记的句子。
这些结束标记包括：。 ? ！ * _
[所以句号、问号、感叹号、星号或下划线]
我希望以最快的方式使用基数 R 来计算这些出现次数。例如，以下字符串的计数为 6。
x <- "I like to play. Do you? Yes I do! Go* I didn't say it, but will. I wanted to but_"
这个字符串的计数为 4：
y <- "I like it! Do you? Look* Where are you go_"
解决方案应该使用 base R，因为这是一个包。提前谢谢你。
【问题讨论】：
我不确定这是否是最快的方式，但很简单：
> x <- "I like to play. Do you? Yes I do! Go* I didn't say it, but will. I wanted to but_"
> y <- "I like it! Do you? Look* Where are you go_"
>
> length(gregexpr("[.?!*_]", x)[[1]])
[1] 6
> length(gregexpr("[.?!*_]", y)[[1]])
[1] 4
更新
gregexpr 如果没有匹配则返回-1，所以你需要检查它。这是正确的：
sum(gregexpr("[.?!*_]", x)[[1]] > 0)
【讨论】：
查看 stringr:::string_count。在你的包中导入其他有用的功能是公平的。
【讨论】：