take_five <- function(x) format(formatC(x,5,format = "f", flag= " "), justify = "right")
(DF <- dplyr::tibble(v1 = c(10,10.2,9.23,5)))
#> # A tibble: 4 × 1
#> v1
#> <dbl>
#> 1 10
#> 2 10.2
#> 3 9.23
#> 4 5
DF$v1 <- take_five(DF$v1)
DF
#> # A tibble: 4 × 1
#> v1
#> <chr>
#> 1 " 10.00000"
#> 2 " 10.20000"
#> 3 " 9.23000"
#> 4 " 5.00000"