Convert numbers to SI prefix

by 
require(sitools)
f2si(80000)
 [1] "80 k"
f2si(8E12)
 [1] "8 T"

It seems to be very simplistic as it appends two spaces if no SI prefix is used:

f2si(80)
[1] "80  "

The function is easy to modify to include rounding. I also fixed the issue with appended spaces.

f2si2<-function (number,rounding=F) 
{
    lut <- c(1e-24, 1e-21, 1e-18, 1e-15, 1e-12, 1e-09, 1e-06, 
        0.001, 1, 1000, 1e+06, 1e+09, 1e+12, 1e+15, 1e+18, 1e+21, 
        1e+24)
    pre <- c("y", "z", "a", "f", "p", "n", "u", "m", "", "k", 
        "M", "G", "T", "P", "E", "Z", "Y")
    ix <- findInterval(number, lut)
    if (lut[ix]!=1) {
        if (rounding==T) {
         sistring <- paste(round(number/lut[ix]), pre[ix])
        }
        else {
         sistring <- paste(number/lut[ix], pre[ix])
        } 
    }
    else {
        sistring <- as.character(number)
    }
    return(sistring)
}

f2si2(12345)
 [1] "12.345 k"
f2si2(12345,T)
 [1] "12 k"

More Related Contents:

  1. How to add leading zeros?
  2. Force R not to use exponential notation (e.g. e+10)?
  3. How to read in numbers with a comma as decimal separator?
  4. Convert scientific notation to numeric, preserving decimals
  5. Convert an upper to lower triangle matrix in r [duplicate]
  6. Deleting specific rows with a pattern[start and end indicators] from a dataframe [closed]
  7. Difference between the == and %in% operators in R [duplicate]
  8. ggplot2 keep unused levels barplot
  9. Cumulatively paste (concatenate) values grouped by another variable
  10. Dplyr join on by=(a = b), where a and b are variables containing strings?
  11. plotting smooth line through all data points
  12. Break X Axis in R
  13. Extract data from a ggplot
  14. pass function arguments to both dplyr and ggplot
  15. Dynamic column names in data.table
  16. Show frequencies along with barplot in ggplot2
  17. Find which interval row in a data frame that each element of a vector belongs in
  18. Removing one tableGrob when applied to a box plot with a facet_wrap
  19. In R, how do I add a max by group? [duplicate]
  20. Saving grid.arrange() plot to file
  21. How to plot a Stacked and grouped bar chart in ggplot?
  22. Ordering in r plotly barchart
  23. Overlay two ggplot2 stat_density2d plots with alpha channels
  24. Sort legend in ggplot2
  25. Leaflet Legend for Custom Markers in R
  26. Efficiently merging two data frames on a non-trivial criteria
  27. dplyr: put count occurrences into new variable [duplicate]
  28. Convert accented characters into ascii character
  29. in r combine a list of lists into one list
  30. Change the position of the strip label in ggplot from the top to the bottom?

Leave a Comment