Erhalte den Index des ersten Großbuchstabens einer Zeichenkette in R?

Question

Ich versuche, den Index des ersten Zeichens einer Zeichenfolge in R zu erhalten. Aber die meisten Antworten, die ich gesucht habe, überprüfen, ob die ganze Zeichenfolge Großbuchstaben mit grepl ist. Python kann dies leicht tun, aber ich habe nicht aa Bibliothek gefunden

Answer 1

dies in R. tun können Sie beginnen, mit so etwas wie Angenommen:

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

Sie können versuchen:

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

---

Es gibt auch die "stringi" Paket, mit dem Sie verwenden können:

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 

---

Wie von @lmo in den Kommentaren, regexpr funktioniert auch und beseitigt die Notwendigkeit für 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

Ein gerader Weg nach vorn jede Saite in Seng Brief Vektor und Test würde Spaltung, die in ist Großbuchstaben:

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