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>