Преобразования десятичного числа с отрицательным знаком с фиксированной шириной строки

Question

Я хотел бы преобразовать десятичные координаты (например, -62,54879632547) до фиксированных строк ширины следующего образом:

отрицательного числа -> ведущий 0

положительного числа -> ведущий 1

затем 3 цифры для целой части

62 -> 062

2 -> 002

Затем 6 цифр после запятой (и удаления десятичной)

.54879632547 -> 548796

Заключительных restuls:

-62,54879632547 -> 0062548796 (т.е. 0 062 548796)

Как сделать это быстро и эффективно в R?

Я сделал следующую функцию, но она довольно медленно (при использовании с lapply над миллионами значений):

 formatCoordinate <- function (x) { 
     if (!is.na(x)) { 
     sign <- ifelse(x < 0, 0, 1) 
     castIntergerPart <- function (x) { 
      #integer part should be exactly 3 digits with leading zeros if necessary 
      if (abs(x) < 10) { 
      intgerPart <- paste0("00", abs(as.integer(x))) 

      }else if (abs(x) >=10 & abs(x) < 100) { 
      intgerPart <- paste0("0", abs(as.integer(x))) 

      }else if (abs(x) >= 100) { 
      intgerPart <- paste0(abs(as.integer(x))) 
      } 
     } 

     castDecimalPart <- function(x) { 
      s <- toString(x) 
      sub(".*?.(.*?);.*", "\\1", s) 
      substr(unlist(strsplit(s, split='.', fixed=TRUE))[2], 1, 6) 
     } 

     formattedCoordinate = paste0(sign, castIntergerPart(x), castDecimalPart(x)) 
     }else{ 
     NA  
     } 
    } 

любой помощь ценится

лучшего

Answer 1

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

formatter <- function(x){ 
    first_part <- ifelse(x < 0 , "0","1") 
    second_part <- abs(as.integer(x)) 
    third_part <- substr(gsub(".+\\.","",as.character(x)),1,6) 
    result <- ifelse(!is.na(x),sprintf("%s%03d%s",first_part,second_part,third_part), NA) 
    result 

} 
> formatter(-62.54879632547) 
[1] "0062548796"