Найти расположение символа в строке Я хотел бы найти местоположение символа в строке. Скажите: string = "the2quickbrownfoxeswere2tired" Я хочу, чтобы функция возвращала 4 и 24 - расположение символа 2 в string. Ответ 1 Вы можете использовать gregexpr gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired") [[1]] [1] 4 24 attr(,"match.length") [1] 1 1 attr(,"useBytes") [1] TRUE или, возможно, str_locate_all из пакета stringr, который является оболочкой для gregexpr stringi::stri_locate_all (начиная с stringr версии 1.0) library(stringr) str_locate_all(pattern ='2', "the2quickbrownfoxeswere2tired") [[1]] start end [1,] 4 4 [2,] 24 24 обратите внимание, что вы можете просто использовать stringi library(stringi) stri_locate_all(pattern = '2', "the2quickbrownfoxeswere2tired", fixed = TRUE) Другим вариантом в базе R будет что-то вроде lapply(strsplit(x, ''), function(x) which(x == '2')) должен работать (с учетом символьного вектора x) Ответ 2 Вот еще одна простая альтернатива. > which(strsplit(string, "")[[1]]=="2") [1] 4 24 Ответ 3 Вы можете сделать вывод только 4 и 24 с помощью списка: unlist(gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired")) [1] 4 24 Ответ 4 найти позицию n-го вхождения str2 в str1 (тот же порядок параметров, что и Oracle SQL INSTR), возвращает 0, если не найден 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
Ответ 1 Вы можете использовать gregexpr gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired") [[1]] [1] 4 24 attr(,"match.length") [1] 1 1 attr(,"useBytes") [1] TRUE или, возможно, str_locate_all из пакета stringr, который является оболочкой для gregexpr stringi::stri_locate_all (начиная с stringr версии 1.0) library(stringr) str_locate_all(pattern ='2', "the2quickbrownfoxeswere2tired") [[1]] start end [1,] 4 4 [2,] 24 24 обратите внимание, что вы можете просто использовать stringi library(stringi) stri_locate_all(pattern = '2', "the2quickbrownfoxeswere2tired", fixed = TRUE) Другим вариантом в базе R будет что-то вроде lapply(strsplit(x, ''), function(x) which(x == '2')) должен работать (с учетом символьного вектора x)
Ответ 3 Вы можете сделать вывод только 4 и 24 с помощью списка: unlist(gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired")) [1] 4 24
Ответ 4 найти позицию n-го вхождения str2 в str1 (тот же порядок параметров, что и Oracle SQL INSTR), возвращает 0, если не найден 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