pretty10exp {sfsmisc} | R Documentation |
Produce nice a * 10^k expressions to be used
instead of the scientific notation "a E<k>"
.
pretty10exp(x, drop.1 = FALSE, digits.fuzz = 7)
x |
numeric vector (e.g. axis tick locations) |
drop.1 |
logical indicating if 1 * should be dropped from the resulting expressions. |
digits.fuzz |
number of digits to be considered for integer equality; do not change lightly! |
an expression of the same length as x
, with elements of the
form a %*% 10 ^ k
.
Martin Maechler
axTexpr
which builds on pretty10exp()
;
further axis
, axTicks
.
pretty10exp(-1:3 * 1000) pretty10exp(-1:3 * 1000, drop.1 = TRUE) pretty10exp(c(1,2,5,10,20,50,100,200) * 1e3) ax <- 10^(-6:0) - 2e-16 pretty10exp(ax, drop.1=TRUE) ## in sfsmisc version <= 1.0-16, no 'digits', ## i.e., implicitly had digits := #{double precision digits} == (dig. <- .Machine$double.digits * log10(2)) # 15.95 pretty10exp(ax, drop.1=TRUE, digits= dig.) # ``ugly''