Chciałbym znaleźć lokalizację znaku w ciągu.
Mówić: string = "the2quickbrownfoxeswere2tired"
Chciałbym, aby funkcja powróciła 4
i 24
- położenie znaku 2
s w string
.
Odpowiedzi:
Możesz użyć gregexpr
gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired")
[[1]]
[1] 4 24
attr(,"match.length")
[1] 1 1
attr(,"useBytes")
[1] TRUE
lub może str_locate_all
z pakietu, stringr
który jest opakowaniem (od wersji 1.0)gregexpr
stringi::stri_locate_all
stringr
library(stringr)
str_locate_all(pattern ='2', "the2quickbrownfoxeswere2tired")
[[1]]
start end
[1,] 4 4
[2,] 24 24
pamiętaj, że możesz po prostu użyć stringi
library(stringi)
stri_locate_all(pattern = '2', "the2quickbrownfoxeswere2tired", fixed = TRUE)
Inną opcją w bazie R
byłoby coś takiego
lapply(strsplit(x, ''), function(x) which(x == '2'))
powinno działać (biorąc pod uwagę wektor znaków x
)
regexpr
zamiast, gregexpr
aby łatwo uzyskać liczby całkowite. Lub użyj unlist
na wyjściu, jak wskazano w innej odpowiedzi poniżej.
Oto kolejna prosta alternatywa.
> which(strsplit(string, "")[[1]]=="2")
[1] 4 24
[[1]]
robi?
Możesz zmienić wynik na 4 i 24 używając unlist:
unlist(gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired"))
[1] 4 24
znajdź pozycję n-tego wystąpienia str2 w str1 (taka sama kolejność parametrów jak Oracle SQL INSTR), zwraca 0, jeśli nie zostanie znaleziona
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
Aby znaleźć tylko pierwsze lokalizacje, użyj lapply()
z min()
:
my_string <- c("test1", "test1test1", "test1test1test1")
unlist(lapply(gregexpr(pattern = '1', my_string), min))
#> [1] 5 5 5
# or the readable tidyverse form
my_string %>%
gregexpr(pattern = '1') %>%
lapply(min) %>%
unlist()
#> [1] 5 5 5
Aby znaleźć tylko ostatnie lokalizacje, użyj lapply()
z max()
:
unlist(lapply(gregexpr(pattern = '1', my_string), max))
#> [1] 5 10 15
# or the readable tidyverse form
my_string %>%
gregexpr(pattern = '1') %>%
lapply(max) %>%
unlist()
#> [1] 5 10 15
.indexOf()
czy coś?