Wydobywanie ostatnich n znaków z ciągu znaków w R

Jeśli nie masz nic przeciwko użyciu pakietu stringr, str_sub jest przydatny, ponieważ możesz używać negatywów do liczenia wstecz:

x <- "some text in a string"
str_sub(x,-6,-1)
[1] "string"

Lub, jak Max wskazuje w komentarzu do tej odpowiedzi,

str_sub(x, start= -6)
[1] "string"

Użyj funkcji stri_sub z pakietu stringi. Aby uzyskać podłańcuch od końca, użyj liczb ujemnych. Zobacz poniżej przykłady:

stri_sub("abcde",1,3)
[1] "abc"
stri_sub("abcde",1,1)
[1] "a"
stri_sub("abcde",-3,-1)
[1] "cde"

Możesz zainstalować ten pakiet z Githuba: https://github.com/Rexamine/stringi

Jest już dostępny na CRAN, po prostu wpisz

install.packages("stringi")

Aby zainstalować ten pakiet.

str = 'This is an example'
n = 7
result = substr(str,(nchar(str)+1)-n,nchar(str))
print(result)

> [1] "example"
> 

Innym dość prostym sposobem jest użycie wyrażeń regularnych i sub:

sub('.*(?=.$)', '', string, perl=T)

Więc, "pozbądź się wszystkiego, po którym następuje jeden znak". Aby pobrać więcej znaków z końca, dodaj jednak wiele kropek w twierdzeniu lookahead: {]}

sub('.*(?=.{2}$)', '', string, perl=T)

Gdzie .{2} oznacza .., lub "dowolne dwa znaki", czyli"pozbądź się wszystkiego, po którym następuje dwa znaki".

sub('.*(?=.{3}$)', '', string, perl=T)

Dla trzech znaków itp. Możesz ustawić liczbę znaków do przechwycenia za pomocą zmiennej, ale będziesz należy paste wartość zmiennej do ciągu wyrażenia regularnego:

n = 3
sub(paste('.+(?=.{', n, '})', sep=''), '', string, perl=T)

UPDATE: Jak zauważył mdsumner , oryginalny kod jest już wektoryzowany, ponieważ substr jest. Trzeba było być ostrożniejszym.

I jeśli chcesz wersję wektorowaną (opartą na kodzie Andrie)

substrRight <- function(x, n){
  sapply(x, function(xx)
         substr(xx, (nchar(xx)-n+1), nchar(xx))
         )
}

> substrRight(c("12345","ABCDE"),2)
12345 ABCDE
 "45"  "DE"

Zauważ, że zmieniłem (nchar(x)-n) na (nchar(x)-n+1), aby uzyskać n znaki.

Proste rozwiązanie bazowe R przy użyciu funkcji substring() (Kto by pomyślał, że ta funkcja w ogóle istnieje?):

RIGHT = function(x,n){
  substring(x,nchar(x)-n+1)
}

To korzysta z tego, że zasadniczo jest substr() pod spodem, ale ma domyślną wartość końcową 1,000,000.

Przykłady:

> RIGHT('Hello World!',2)
[1] "d!"
> RIGHT('Hello World!',8)
[1] "o World!"

Alternatywą dla {[1] } jest podzielenie ciągu znaków na listę pojedynczych znaków i proces, który:

N <- 2
sapply(strsplit(x, ""), function(x, n) paste(tail(x, n), collapse = ""), N)

Ja też używam substr, ale w inny sposób. Chcę wyodrębnić Ostatnie 6 znaków "Daj mi swoje jedzenie."Oto kroki:

(1) Podziel znaki

splits <- strsplit("Give me your food.", split = "")

(2) Wyodrębnij Ostatnie 6 znaków

tail(splits[[1]], n=6)

Wyjście:

[1] " " "f" "o" "o" "d" "."

Każdy znak może być dostępny przez splits[[1]][x], gdzie x wynosi od 1 do 6.

Spróbuj tego:

x <- "some text in a string"
n <- 5
substr(x, nchar(x)-n, nchar(x))

Powinno dać:

[1] "string"

Ktoś wcześniej używa podobnego rozwiązania do mojego, ale mi łatwiej jest myśleć jak poniżej:

> text<-"some text in a string" # we want to have only the last word "string" with 6 letter
> n<-5 #as the last character will be counted with nchar(), here we discount 1
> substr(x=text,start=nchar(text)-n,stop=nchar(text))

Spowoduje to wyświetlenie ostatnich znaków zgodnie z życzeniem.

Użyłem poniższego kodu, aby uzyskać ostatni znak łańcucha.

    substr(output, nchar(stringOfInterest), nchar(stringOfInterest))

Możesz grać za pomocą nchar (stringOfInterest), aby dowiedzieć się, jak zdobyć kilka ostatnich znaków.

NapisaĹ ' em kilka funkcji, ktĂłre mogÄ ... wykonaÄ ‡ wszystkie te funkcje po oblaniu ostatniego egzaminu z manipulacji strunami w programowaniu R. Jeśli pochodzisz z Excela, funkcje te będą podobne do LEFT(), RIGHT(), i MID() funkcje.

# This counts from the left and then extract n characters

str_left <- function(string, n) {
  substr(string, 1, n)
}



# This counts from the right and then extract n characters

str_right <- function(string, n) {
  substr(string, nchar(string) - (n - 1), nchar(string))
}


# This extract characters from the middle

str_mid <- function(string, from = 2, to = 5){
  
  substr(string, from, to)
  }

Przykłady:

x <- "some text in a string"
str_left(x, 4)
[1] "some"

str_right(x, 6)
[1] "string"

str_mid(x, 6, 9)
[1] "text"

Mała modyfikacja na @ Andrie rozwiązanie daje również dopełnienie:

substrR <- function(x, n) { 
  if(n > 0) substr(x, (nchar(x)-n+1), nchar(x)) else substr(x, 1, (nchar(x)+n))
}
x <- "moSvmC20F.5.rda"
substrR(x,-4)
[1] "moSvmC20F.5"

substrL <- function(x, n){ 
  if(n > 0) substr(x, 1, n) else substr(x, -n+1, nchar(x))
}
substrL(substrR(x,-4),-2)
[1] "SvmC20F.5"

Na wypadek, gdyby trzeba było wybrać zakres znaków:

# For example, to get the date part from the string

substrRightRange <- function(x, m, n){substr(x, nchar(x)-m+1, nchar(x)-m+n)}

value <- "REGNDATE:20170526RN" 
substrRightRange(value, 10, 8)

[1] "20170526"