Извлечь первые 2 символа в строку
Мне нужно извлечь первые 2 символа в строке, чтобы позже создать распределение бина. вектор:
x <- c("75 to 79", "80 to 84", "85 to 89")
Я получил это далеко:
substrRight <- function(x, n){
substr(x, nchar(x)-n, nchar(x))
}
вызвать функцию
substrRight(x, 1)
отклик
[1] "79" "84" "89"
Нужно печатать последние 2 символа, а не первый.
[1] "75" "80" "85"