un-scinote in r

unscinote.R

it <- read.csv('reachNums.csv')
reach <- sort(it[,c('reach')])

f2si2<-function (number, rounding=F, sep=" ") 
{
  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 (ix>0 && lut[ix]!=1) {
    if (rounding==T) {
      sistring <- paste(round(number/lut[ix]), pre[ix], sep=sep)
    }
    else {
      sistring <- paste(number/lut[ix], pre[ix], sep=sep)
    }
  }
  else {
    sistring <- as.character(number)
  }
  return(sistring)
}

spos <- pretty(c(0, max(reach)+1), n=20)
slb <- sapply(spos, FUN=f2si2, rounding=T, sep="")
hist.data <- hist(reach,freq = T,xaxt="n",plot=F)
hist.data$counts = log(hist.data$counts, 2)
plot(hist.data,xaxt="n")

axis(1, at=spos, labels=slb)