Нужно знать, как отформатировать числовой столбец в 12 цифр и поставить в формате xxxx_xxxx_xxxx

Question

Используя R, нужно знать, как отформатировать столбец до 12 цифр и отформатировать его в xxxx_xxxx_xxxx.

#install.packages("tidyr")
#install.packages("readxl")
library(tidyr)
library(readxl)

projectToL4Raw <- read.csv("project_pro.csv")
projectToL4Raw
projectToL4RawSeparator <- separate(projectToL4Raw, ALLOCATION_CBD, c("CBD", "Cost Center"), sep = ":")

write.csv(projectToL4RawSeparator, file = "my_data.csv")

Я импортировал файл, в котором есть столбец с номером '10021502'.Нужно отформатировать столбец до 000010021502, а затем до 0000_1002_1502.

Answer 1

Дано:

x <- '10021502'

Следующее сделает трюк

gsub("([0-9]{4})([0-9]{4})", "0000_\\1_\\2", x)

Answer 2

Учитывая

x <- '10021502'

мы можем использовать formatC, чтобы получить желаемый результат

formatC(
  x = as.integer(x),
  width = 12,        # total width
  flag = "0",        # pads zeros at beginning
  big.mark = "_",    # mark between every big.interval before the decimal point
  big.interval = 4   # see above
)
# [1] "0000_1002_1502"