<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>