R/sci_notation.R

In carlislerainey/compactr: Creates empty plots with compact axis notation

sci_notation <- function(x, digits = 1) {
  if (length(x) > 1) {
    return(append(sci_notation(x[1]), sci_notation(x[-1])))
  }
  if (!x) return(0)
  exponent <- floor(log10(x))
  base <- round(x / 10^exponent, digits)
  if (sum(base == 1) == length(base)) {
    as.expression(substitute(10^exponent, 
                             list(exponent = exponent)))
  } else {
    as.expression(substitute(base %*% 10^exponent, 
                             list(base = base, exponent = exponent)))
  }

}