R/fancy_scientific.R

In Russel88/COEF: COEF: Collection Of Esoteric Functions

#' Fancy Scientific Notation
#' 
#' Code from Brian Diggs \url{https://groups.google.com/forum/#!topic/ggplot2/a_xhMoQyxZ4}
#'
#' @param l Numberic label input
#' @return Value in scientific notation
#' @import stats
#' @export
fancy_scientific <- function(l) {
  # turn in to character string in scientific notation
  l <- format(l, scientific = TRUE)
  # fix zeroes
  l <- gsub("0e\\+00","0",l)
  # quote the part before the exponent to keep all the digits
  l <- gsub("^(.*)e", "'\\1'e", l)
  # turn the 'e+' into plotmath format
  l <- gsub("e\\+","e",l)
  l <- gsub("e", "%*%10^", l)
  # return this as an expression
  parse(text=l)
}