获取R中字符串的第一个大写字母的索引？

Question

我想获得在R中的字符串的第一个字符的索引。但大多数我搜索的答案检查整个字符串是否与grepl大写。 Python可以做到这一点很容易，但我还没有发现AA库，可以在R

Answer 1

做到这一点假设你开始喜欢的东西：

x <- c("stRing", "strIng", "String", "sTRIng", "string") 

你可以试试：

sapply(gregexpr("[A-Z]", x), `[`, 1) 
## [1] 3 4 1 2 -1 

---

另外还有 “stringi” 封装，您可以使用：

library(stringi) 
stri_locate_first_regex(x, "[A-Z]") 
##  start end 
## [1,]  3 3 
## [2,]  4 4 
## [3,]  1 1 
## [4,]  2 2 
## [5,] NA NA 

---

正如评论所指出的@lmo，regexpr也适用，并消除了sapply需要：

regexpr("[A-Z]", x) 
## [1] 3 4 1 2 -1 
## attr(,"match.length") 
## [1] 1 1 1 1 -1 
## attr(,"useBytes") 
## [1] TRUE 

Answer 2

一个直接的方式将每个分割字符串转换成燎信矢量和测试是在大写字母：

x <- c("stRing", "strIng", "String", "string", "sTRIng") # from the other answer 

sapply(strsplit(x, ''), function(y) which(y %in% LETTERS)[1]) 

# [1] 3 4 1 NA 2