Rodolfo, bom dia! 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. ### <code r> cp1 <- c(6.81, 3.78, 3.16, 0.66, 4.27, 0.75, 5.64, 2.02, 0.99, 31.00) cp2 <- c(4.57, 0, 0, 0, 3.81, 0, 6.6, 1.27, 0, 140) cp3 <- c(0.46, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 35.00) dbhm <- t(data.frame(grups=1:10, cp1, cp2 ,cp3)[-1]) colnames(dbhm) <- as.integer(1:10) dbhm barplot(dbhm, beside=T, las=1) ### gráfico default ### dados transformados barplot(sqrt(dbhm), beside=T, las=1, ylab='Escala transformada') ### dados transformados, mas com escala original barplot(sqrt(dbhm), beside=T, las=1, axes=F, ylab='Escala não transormada') lab <- c(0, 1:10/10*max(dbhm)); lab axis(2, at=sqrt(lab), labels=lab) ### </code> Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]