Извлечение последних n символов из строки в R

Question

Как я могу получить последние n символов из строки в R?Есть ли такая функция, как RIGHT в SQL?

Answer 1

Попробуйте:

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

Это должно дать:

[1] "string"

Answer 2

Я использовал следующий код, чтобы получить последний символ строки.

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

Вы можете поиграть с nchar (stringOfInterest), чтобы выяснить, как получить последние несколько символов.

Answer 3

На всякий случай, если нужно выбрать диапазон символов:

# 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"

Answer 4

Небольшая модификация решения @Andrie дает также дополнение:

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"