Функция substr() в R - Извлечение и замена подстрок
Примеры на языке RФункция substr() в R используется для извлечения или замены подстрок в указанных позициях строки.
substring() — это псевдоним substr() с практически одинаковым поведением.
Синтаксис функции substr() выглядит следующим образом:
substr(x, start, stop) substring(text, first, last = 1000000L)
Описание параметра:
x/textВходная строка или вектор строк.
start/firstНачальная позиция (начиная с 1).
stop/lastКонечная позиция.
Пример
text <- "Hello EXAMPLE"
# Извлечь символы со 2 по 5
result1 <- substr(text, 2, 5)
print(result1)
# Извлечение подстрок из вектора
words <- c("apple", "banana", "cherry")
result2 <- substr(words, 1, 3)
print(result2)
# Замена подстрок
str <- "Hello EXAMPLE"
substr(str, 7, 12) <- "WORLD"
print(str)
# Извлечь символы со 2 по 5
result1 <- substr(text, 2, 5)
print(result1)
# Извлечение подстрок из вектора
words <- c("apple", "banana", "cherry")
result2 <- substr(words, 1, 3)
print(result2)
# Замена подстрок
str <- "Hello EXAMPLE"
substr(str, 7, 12) <- "WORLD"
print(str)
Выполнение приведенного выше кода дает следующий вывод:
[1] "ello" [1] "app" "ban" "che" [1] "Hello WORLD"
substr() обычно используется для извлечения закодированной информации в фиксированных форматах:
Пример
# Извлечение года рождения из номера удостоверения личности (символы 7-10)
id_numbers <- c("110101199001011234", "310105198505067890")
birth_years <- substr(id_numbers, 7, 10)
print(paste(Год рождения:, birth_years))
id_numbers <- c("110101199001011234", "310105198505067890")
birth_years <- substr(id_numbers, 7, 10)
print(paste(Год рождения:, birth_years))
Выполнение приведенного выше кода дает следующий вывод:
[1] "出生年份: 1990" "出生年份: 1985"Другие расширения