<div dir="ltr"><div>Rodolfo, bom dia!</div><div><br></div><div>Pra contornar a diferença de magnitude também é possível plotar os dados transformados (log, sqrt) e por conveniência apresentar a escala original (valores não transformados) no gráfico.</div>
<div><br></div><div><div><font face="courier new, monospace">### <code r></font></div><div><font face="courier new, monospace">cp1    <- c(6.81, 3.78, 3.16, 0.66, 4.27, 0.75, 5.64, 2.02, 0.99, 31.00)</font></div>
<div><font face="courier new, monospace">cp2    <- c(4.57, 0, 0, 0, 3.81, 0, 6.6, 1.27, 0, 140)</font></div><div><font face="courier new, monospace">cp3    <- c(0.46, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 35.00)</font></div>
<div><font face="courier new, monospace">dbhm <- t(data.frame(grups=1:10, cp1, cp2 ,cp3)[-1])</font></div><div><font face="courier new, monospace">colnames(dbhm) <- as.integer(1:10)</font></div><div><font face="courier new, monospace">dbhm</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">barplot(dbhm, beside=T, las=1) ### gráfico default</font></div><div><font face="courier new, monospace"><br></font></div><div>
<font face="courier new, monospace">### dados transformados</font></div><div><font face="courier new, monospace">barplot(sqrt(dbhm), beside=T, las=1, ylab='Escala transformada')</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">### dados transformados, mas com escala original</font></div><div><font face="courier new, monospace">barplot(sqrt(dbhm), beside=T, las=1, axes=F, ylab='Escala não transormada')</font></div>
<div><font face="courier new, monospace">lab   <- c(0, 1:10/10*max(dbhm)); lab</font></div><div><font face="courier new, monospace">axis(2, at=sqrt(lab), labels=lab)</font></div><div><font face="courier new, monospace">### </code></font></div>
</div><div><br></div><div><br></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div></div>