encontrar la ubicación del personaje en una cuerda

Me gustaría encontrar la ubicación de un personaje en una cadena.

Diga: string = "the2quickbrownfoxeswere2tired"

Me gustaría que la función devuelva 4 y 24 – la ubicación del carácter de los 2 s en la string .

Puedes usar gregexpr

  gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired") [[1]] [1] 4 24 attr(,"match.length") [1] 1 1 attr(,"useBytes") [1] TRUE 

o quizás str_locate_all del paquete stringr que es un contenedor para gregexpr stringi::stri_locate_all (a partir de la versión 1.0 de stringr )

 library(stringr) str_locate_all(pattern ='2', "the2quickbrownfoxeswere2tired") [[1]] start end [1,] 4 4 [2,] 24 24 

Tenga en cuenta que simplemente podría usar stringi

 library(stringi) stri_locate_all(pattern = '2', "the2quickbrownfoxeswere2tired", fixed = TRUE) 

Otra opción en la base R sería algo así como

 lapply(strsplit(x, ''), function(x) which(x == '2')) 

debería funcionar (dado un vector de caracteres x )

Aquí hay otra alternativa directa.

 > which(strsplit(string, "")[[1]]=="2") [1] 4 24 

Puede hacer que la salida sea solo 4 y 24 usando unlist:

 unlist(gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired")) [1] 4 24 

encuentre la posición de la enésima aparición de str2 en str1 (el mismo orden de parámetros que Oracle SQL INSTR), devuelve 0 si no se encuentra

 instr <- function(str1,str2,startpos=1,n=1){ aa=unlist(strsplit(substring(str1,startpos),str2)) if(length(aa) < n+1 ) return(0); return(sum(nchar(aa[1:n])) + startpos+(n-1)*nchar(str2) ) } instr('xxabcdefabdddfabx','ab') [1] 3 instr('xxabcdefabdddfabx','ab',1,3) [1] 15 instr('xxabcdefabdddfabx','xx',2,1) [1] 0