Добавление условных начальных или конечных нулей

Question

Мне нужна помощь, условно добавляющая начальные или конечные нули.

У меня есть dataframe с одним столбцом, содержащим диагнозы icd9. в качестве вектора, колонка выглядит следующим образом:

"33.27" "38.45" "9.25" "4.15" "38.45" "39.9" "84.1" "41.5" "50.3" 

мне нужно все значения, чтобы иметь длину 5, включая период в середине (не считая «»). Если значение имеет одну цифру до периода, оно должно иметь начальный ноль. Если значение имеет одну цифру после периода, оно должно иметь нуль в конце. Таким образом, результат должен выглядеть следующим образом:

"33.27" "38.45" "09.25" "04.15" "38.45" "39.90" "84.10" "41.50" "50.30" 

Здесь вектор R:

icd9 <- c("33.27", "38.45", "9.25", "4.15", "38.45", "39.9", "84.1", "41.5", "50.3") 

Answer 1

Используя эту функцию, называемое изменением, которое принимает аргумент максимального числа символов, я думаю, что это может помочь

change<-function(x, n=max(nchar(x))) gsub(" ", "0", formatC(x, width=n)) 
    icd92<-gsub(" ","",paste(change(icd9,5))) 

Answer 2

Это делает это в одной строке

formatC(as.numeric(icd9),width=5,format='f',digits=2,flag='0')

Answer 3

Вы также можете использовать sprintf после преобразования вектора в числовой.

sprintf("%05.2f", as.numeric(icd9)) 
[1] "33.27" "38.45" "09.25" "04.15" "38.45" "39.90" "84.10" "41.50" "50.30" 

Примечания

• Примеры в ?sprint, чтобы выработать правильный формат.
• Существует некоторый риск ввода ошибок из-за численной точности здесь, хотя он хорошо работает в этом примере.