Formatting Decimal places in R

by

Background: Some answers suggested on this page (e.g., signif, options(digits=...)) do not guarantee that a certain number of decimals are displayed for an arbitrary number. I presume this is a design feature in R whereby good scientific practice involves showing a certain number of digits based on principles of “significant figures“. However, in many domains (e.g., APA style, business reports) formatting requirements dictate that a certain number of decimal places are displayed. This is often done for consistency and standardisation purposes rather than being concerned with significant figures.

Solution:

The following code shows exactly two decimal places for the number x.

format(round(x, 2), nsmall = 2)

For example:

format(round(1.20, 2), nsmall = 2)
# [1] "1.20"
format(round(1, 2), nsmall = 2)
# [1] "1.00"
format(round(1.1234, 2), nsmall = 2)
# [1] "1.12"

A more general function is as follows where x is the number and k is the number of decimals to show. trimws removes any leading white space which can be useful if you have a vector of numbers.

specify_decimal <- function(x, k) trimws(format(round(x, k), nsmall=k))

E.g.,

specify_decimal(1234, 5)
# [1] "1234.00000"
specify_decimal(0.1234, 5)
# [1] "0.12340"

Discussion of alternatives:

The formatC answers and sprintf answers work fairly well. But they will show negative zeros in some cases which may be unwanted. I.e.,

formatC(c(-0.001), digits = 2, format = "f")
# [1] "-0.00"
sprintf(-0.001, fmt="%#.2f")
# [1] "-0.00"

One possible workaround to this is as follows:

formatC(as.numeric(as.character(round(-.001, 2))), digits = 2, format = "f")
# [1] "0.00"

More Related Contents:

  1. How to add leading zeros?
  2. Round up from .5
  3. R round to nearest .5 or .1
  4. How to join (merge) data frames (inner, outer, left, right)
  5. Why are these numbers not equal?
  6. Dynamically select data frame columns using $ and a character value
  7. Error: could not find function … in R
  8. Simultaneously merge multiple data.frames in a list
  9. Count number of rows within each group
  10. Drop unused factor levels in a subsetted data frame
  11. Use dynamic name for new column/variable in `dplyr`
  12. Select rows from a data frame based on values in a vector
  13. Issue when passing variable with dollar sign notation ($) to aes() in combination with facet_grid() or facet_wrap()
  14. How to call an object with the character variable of the same name
  15. Only read selected columns
  16. ggplot’s qplot does not execute on sourcing
  17. Error: unexpected symbol/input/string constant/numeric constant/SPECIAL in my code
  18. How can two strings be concatenated?
  19. How do you use “
  20. Elegant way to check for missing packages and install them?
  21. Vectorized IF statement in R?
  22. Understanding the order() function
  23. How can I disable scientific notation?
  24. How to subtract/add days from/to a date?
  25. Formatting dates with scale_x_date in ggplot2
  26. How can I remove an element from a list?
  27. Remove backslashes from character string
  28. What does “S3 methods” mean in R?
  29. How to get help in R?
  30. How to remove leading “0.” in a numeric R variable

Leave a Comment