<div dir="ltr"><div><div><div>Em 2006 um sabido respondeu no r-help,<br><br>sciNotation <- function(x, digits = 1) {<br>    if (length(x) > 1) {<br>        return(append(sciNotation(x[1]), sciNotation(x[-1])))<br>    }<br>
    if (!x) return(0)<br>    exponent <- floor(log10(x))<br>    base <- round(x / 10^exponent, digits)<br>    as.expression(substitute(base %.% 10^exponent,<br>                        list(base = base, exponent = exponent)))<br>
}<br><br>plot(1:1000, axes = FALSE, type = "l", frame.plot = TRUE)<br>axis(1, at = axTicks(1), label = sciNotation(axTicks(1), 1)) <br><br></div>Deve ser o que procuras!!!<br><br></div>(s,f,p)<br></div>Allaman<br clear="all">
<div><div><div><div>
</div></div></div></div></div>