Format numbers with million (M) and billion (B) suffixes

by

If you begin with this numeric vector x, 

x <- c(6e+06, 75000400, 743450000, 340000, 4300000)

you could do the following.

paste(format(round(x / 1e6, 1), trim = TRUE), "M")
# [1] "6.0 M"   "75.0 M"  "743.5 M" "0.3 M"   "4.3 M"

And if you’re not concerned about trailing zeros, just remove the format() call.

paste(round(x / 1e6, 1), "M")
# [1] "6 M"     "75 M"    "743.5 M" "0.3 M"   "4.3 M"

Alternatively, you could assign an S3 class with print method and keep y as numeric underneath. Here I use paste0() to make the result a bit more legible.

print.million <- function(x, quote = FALSE, ...) {
    x <- paste0(round(x / 1e6, 1), "M")
    NextMethod(x, quote = quote, ...)
}
## assign the 'million' class to 'x'
class(x) <- "million"
x
# [1] 6M     75M    743.5M 0.3M   4.3M  
x[] 
# [1]   6000000  75000400 743450000    340000   4300000

You could do the same for billions and trillions as well. For information on how to put this into a data frame, see this answer, as you’ll need both a format() and an as.data.frame() method.

More Related Contents:

  1. How to change multiple Date formats in same column?
  2. Changing date format in R
  3. Format number in R with both comma thousands separator and specified decimals
  4. How to write to json with children from R
  5. Number format, writing 1e-5 instead of 0.00001
  6. Convert scientific notation to numeric, preserving decimals
  7. Convert decimal day to HH:MM
  8. Create a time interval of 15 minutes from minutely data in R?
  9. Create an empty data.frame
  10. Add a common Legend for combined ggplots
  11. Assign multiple new variables on LHS in a single line
  12. No visible binding for global variable Note in R CMD check
  13. Split time series data into time intervals (say an hour) and then plot the count
  14. Is there a better alternative than string manipulation to programmatically build formulas?
  15. Stacked barchart, independent fill order for each stack
  16. Same function over multiple data frames in R
  17. Convert yyyymmdd string to Date class in R
  18. How to make dodge in geom_bar agree with dodge in geom_errorbar, geom_point
  19. Read Stata 13 file in R
  20. Last Observation Carried Forward In a data frame? [duplicate]
  21. tidyverse pivot_longer several sets of columns, but avoid intermediate mutate_wider steps [duplicate]
  22. different size facets proportional of x axis on ggplot 2 r
  23. ggplot2 plot area margins?
  24. How to change positions of x and y axis in ggplot2
  25. Add values to a reactive table in shiny
  26. Error with select function from dplyr
  27. Non-numeric Argument to Binary Operator Error in R
  28. print to pdf file using grid.table in r – too many rows to fit on one page
  29. Obtaining connected components of neighboring values
  30. Administrative regions map of a country with ggmap and ggplot2

Leave a Comment