Добавить ведущие нули в буквенно-цифровую строку

У меня есть вектор символов со строками аналогичного формата (буквы, подчеркивания, цифры):

v <- c("AB_124", "BAE_1", "LOED_1234", "H_01")

Я хочу добавить ведущие нули, чтобы иметь длину 4 для числовой части:

c("AB_0124", "BAE_0001", "LOED_1234", "H_0001")

Какие есть способы сделать это?

r string alphanumeric

14.07.2023 12:05

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 4

Один из способов сделать это (но я нахожу его немного громоздким) — разделить и воссоединить:

sapply(strsplit(v, "_"), \(x) {x[2] <- sprintf("%04d", as.numeric(x[2])); paste(x, collapse = "_")})
#[1] "AB_0124"   "BAE_0001"  "LOED_1234" "H_0001"

14.07.2023 12:05

Использование регулярного выражения:

sprintf("%s_%04d", substr(v, 1, regexpr("_", v) - 1),
        as.numeric(substring(v, regexpr("_", v) + 1)))
# [1] "AB_0124"   "BAE_0001"  "LOED_1234" "H_0001"

Или стрингер:

library(stringr)

str_replace(v, "(\\d+)$", ~sprintf("%04d", as.numeric(.x)))
# [1] "AB_0124"   "BAE_0001"  "LOED_1234" "H_0001"

Немного более простая версия вашего решения sapply:

sapply(strsplit(v, "_"), \(x){ sprintf("%s_%04d", x[1], as.numeric(x[2])) })
# [1] "AB_0124"   "BAE_0001"  "LOED_1234" "H_0001"

Ваше решение stringr можно немного упростить как str_replace(v, "(\\d+)$", ~ sprintf("%04d", as.numeric(.x)))

— 14.07.2023 12:51

@DarrenTsai хороший, спасибо, отредактировано.

— 14.07.2023 14:34

мы также можем использовать str_extract с sprintf как sprintf('%s%04d',str_extract(v,'^\\w+\\_'),as.numeric(str_ex‌tract(v,'\\d+')))

— 14.07.2023 15:40

14.07.2023 12:32

Ответ принят как подходящий

Решение stringr, которое предоставляет функцию (например, str_pad) в str_replace() для замены совпадения.

library(stringr)

str_replace(v, "(\\d+)$", ~ str_pad(.x, 4, pad = 0))

# [1] "AB_0124"   "BAE_0001"  "LOED_1234" "H_0001"

14.07.2023 12:48

Небольшая вариация с использованием функции data.tabletstrsplit

s <- data.table::tstrsplit(v, "_", type.convert = TRUE)
sprintf("%s_%04d", s[[1]], s[[2]])

# [1] "AB_0124"   "BAE_0001"  "LOED_1234" "H_0001"

14.07.2023 13:20

Другие вопросы по теме

Заменить текст в строке

Замените строку после второй косой черты, используя RegEx

Поиск любого экземпляра целого слова в текстовом столбце

Как преобразовать строку в Long-int в C?

Программа JavaScript для заглавной буквы первой буквы каждого слова в заданной строке - я не понимаю эту строку кода

Использование strsplit() для разделения числовой строки и замены части символами

Python: замена отрицательных чисел в данном списке на строку

Ruby: сравнить два слова и извлечь из них необычные буквы

Почему полная функция в NumPy не может принимать dtype=str

Как добавить корректную проверку наличия числа в скобках в строке?

Добавить ведущие нули в буквенно-цифровую строку

Ответы 4

Другие вопросы по теме

Похожие вопросы