<div dir="ltr">Olá Eder, tentei uma estratégia semelhante a sua, um pouco menos elegante, porém a maior dificuldade é que o zero teria de ficar no meio do gráfico e, para direita teria uma escala que varia de 0 a 0.6, para esquerda de 0 a 5. No seu exemplo a origem é na esquerda, desta forma todas as barras partem do mesmo ponto, o que não é desejado.<div>Segue um exemplo do gráfico que eu gostaria de programar.</div><div> </div><div>Não consegui programar o gráfico como eu gostaria, então como uma solução bastante grosseira e imediata eu "desenhei" o gráfico, como se segue:</div><div>Porém continua a dificuldade em faze-lo de uma outra forma.</div><div><br></div><div><div>#******Criando o rótulo do eixo x</div><div>eixox=c("5","4","3","2","1","0", "0.1", "0.2","0.3","0.4","0.5","0.6")</div><div>#********Criando a sequensia compativel com o rótulo de x</div><div>eixoy=seq(1:12)</div><div>#*********Criando o dataframe</div><div>eixos=data.frame(eixox, eixoy)</div><div><br></div><div>#*********Configurando parametros gráficos, o mgp é o parâmetro mais importante, pois define </div><div>#********as ditâncias dos ticks em relação ao gráfico</div><div>par(mar = c(0.5, 10, 0, 0.3), mgp = c(0.5, -0.25, 0), </div><div> bg="gray94", bty="n", cex.axis=0.9, mar = c(4,8, 4, 4), ps=15)</div><div><br></div><div>#***********Criando o gráfico de barras em branco com os rótulos de x desejado,</div><div>#a escala de x é a relação entre número de rótulos dividido por 10</div><div>barplot(with(eixos,(tapply(eixoy,eixox,mean))),axes=FALSE, </div><div> names.arg=as.factor(c("5","4","3","2","1","0", </div><div> "0.1", "0.2","0.3","0.4","0.5","0.6")), col="white", border="white",</div><div> ylab="1985-1991 1991-1999", </div><div> xlab="Interval change Area (percent of map) Anual change Area (percent of map)")</div><div>#*****Colocando as barras verticais sobre os rótulos de x, a sequência é determinada pelo </div><div>#número de rótulos dividido por 10</div><div>abline(v=c(0.7,1.9,3.1,4.3,5.5,6.7,7.9,9.1,10.3,11.5,12.7,13.9), lwd=0.9, col="gray70")</div><div><br></div><div>#****Criando as barras horizontais</div><div>rect(2.5,1, 13.5,4, col="gray", border=FALSE)</div><div>rect(1.3,7, 13,10, col="gray", border=FALSE)</div><div><br></div><div>#****Criando as linhas verticais</div><div>abline(v=6.7, lwd=2)</div><div>abline(v=13.1, lwd=1, col="red", lty=2)</div><div><br></div><div>#******Criando as setas</div><div>arrows(13.2, 10.5,15, 10.5, cex=0.5, col="red", length=0.1)</div><div>arrows(13, 10.5,11.6, 10.5, cex=0.5, col="red", length=0.1)</div><div><br></div><div>#Definido o local do texto. Obs: os comando devem ser executados um de cada vez.</div><div>text(locator(1), "Slow Fast")</div><div>text(locator(1), "0.54 = Uniform Intensity")</div><div><img src="cid:ii_14c95c321efe17c9" alt="Inline image 1" width="563" height="219"><br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Apr 7, 2015 at 4:09 PM, Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Olá, novamente!<div><br></div><div>Mudei o código anterior, porque tinha um problema conceitual acerca do máximo e mínimos considerados.</div><div><br></div><div><br><div><div><font face="monospace, monospace">### <code r></font></div><div><font face="monospace, monospace">aRange <- c(-10,0)</font></div><div><font face="monospace, monospace">bRange <- c(100000,200000)</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">set.seed(765)</font></div><div><font face="monospace, monospace">a <- runif(5, -10, -1)</font></div><div><font face="monospace, monospace">b <- runif(5, 110000, 200000)</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">a1 <- t(scale(a-aRange[1], center=F, scale=diff(aRange)))</font></div><div><font face="monospace, monospace">b1 <- t(scale(b-bRange[1], center=F, scale=diff(bRange)))</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">plot1 <- barplot(rbind(a1, b1), col=c(2,3), horiz=T, beside=T, xlim=c(0,1),</font></div><div><font face="monospace, monospace"> names.arg=LETTERS[1:5], axes=F)</font></div><div><font face="monospace, monospace">axis(1, cex.axis=.75, seq(0,1,len=2), c(-10,0))</font></div><div><font face="monospace, monospace">axis(3, cex.axis=.75, seq(0,1,len=2), c("100.000", "200.000"))</font></div><div><font face="monospace, monospace">abline(v=c(.25,.5,.75), lty=2)</font></div><div><font face="monospace, monospace">text(x=a1-.025, y=plot1[1,], labels=round(a,2), cex=.6, col=1, xpd=TRUE)</font></div><div><font face="monospace, monospace">text(x=b1-.025, y=plot1[2,], labels=round(b), cex=.6, col=1, xpd=TRUE)</font></div><div><font face="monospace, monospace">### </code></font></div></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace"><img src="cid:ii_14c954538e0a2b2e" alt="Imagem inline 1" width="519" height="272"><br></font></div><div><br></div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><b>Rodrigo A. Muniz</b><div>Eng. Agrônomo. Ms Produção Vegetal (UENF)</div><div>Doutor em Ciências (ESALQ/USP)</div><div>E-mail - <a href="mailto:muniz.ra@usp.br" target="_blank">muniz.ra@usp.br</a></div><div>Cel (19) 98300-4333 (Pessoal)</div><div><br></div></div></div>
</div>