Format a number with a specified number of decimal places, thousand sep, and a symbol

format_nr(x, sym = "", dec = 2, perc = FALSE, mark = ",", na.rm = TRUE, ...)

Arguments

x	Number or vector
sym	Symbol to use
dec	Number of decimals to show
perc	Display number as a percentage
mark	Thousand separator
na.rm	Remove missing values
...	Additional arguments passed to `formatC`

Value

Character (vector) in the desired format

Examples

format_nr(2000, "$")
#> [1] "$2,000.00"
format_nr(2000, dec = 4)
#> [1] "2,000.0000"
format_nr(.05, perc = TRUE)
#> [1] "5.00%"
format_nr(c(.1, .99), perc = TRUE)
#> [1] "10.00%" "99.00%"
format_nr(data.frame(a = c(.1, .99)), perc = TRUE)
#> [1] "10.00%" "99.00%"
format_nr(data.frame(a = 1:10), sym = "$", dec = 0)
#>  [1] "$1"  "$2"  "$3"  "$4"  "$5"  "$6"  "$7"  "$8"  "$9"  "$10"
format_nr(c(1, 1.9, 1.008, 1.00))
#> [1] "1.00" "1.90" "1.01" "1.00"
format_nr(c(1, 1.9, 1.008, 1.00), drop0trailing = TRUE)
#> [1] "1"    "1.9"  "1.01" "1"   
format_nr(NA)
#> [1] ""
format_nr(NULL)
#> [1] ""