Quebrar eixo/escala em gráfico de barras agrupadas no R

Olá pessoal, Alguém sabe como quebrar o eixo/escala em gráfico de barras agrupadas no R? Eu preciso fazer um gráfico e tem um grupo bem maior que os demais, e nesse caso passa ter um problema de escala. Segue o CMR 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) grups=c(1,2,3,4,5,6,7,8,9,10) dbh=data.frame(grups,cp1,cp2,cp3) dbhm=t(as.matrix(dbh[,-1])) colnames(dbhm)=dbh$grups barplot(dbhm, beside=T, las=1) O último grupo tem valores bem maior que os demais, por isso que fica ruim ver as variações de cada componente nos outros grupos. Eu queria fazer semelhante a esse ( http://uspace.shef.ac.uk/servlet/JiveServlet/showImage/2-12478-3980/gap_plot...), mas não sei como quando utiliza a função "beside=T". Grato pela atenção. Rodolfo Marcondes Silva Souza

library(plotrix) gap.barplot(dbhm, gap=c(40, 120)) ? Em 13 de março de 2014 09:13, Rodolfo Souza <rodolfomssouza@gmail.com>escreveu:
Olá pessoal,
Alguém sabe como quebrar o eixo/escala em gráfico de barras agrupadas no R? Eu preciso fazer um gráfico e tem um grupo bem maior que os demais, e nesse caso passa ter um problema de escala. Segue o CMR
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) grups=c(1,2,3,4,5,6,7,8,9,10)
dbh=data.frame(grups,cp1,cp2,cp3) dbhm=t(as.matrix(dbh[,-1])) colnames(dbhm)=dbh$grups barplot(dbhm, beside=T, las=1)
O último grupo tem valores bem maior que os demais, por isso que fica ruim ver as variações de cada componente nos outros grupos. Eu queria fazer semelhante a esse ( http://uspace.shef.ac.uk/servlet/JiveServlet/showImage/2-12478-3980/gap_plot...), mas não sei como quando utiliza a função "beside=T".
Grato pela atenção.
Rodolfo Marcondes Silva Souza
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

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]
participantes (3)
-
Benilton Carvalho
-
Rodolfo Souza
-
Éder Comunello