<div dir="ltr"><div><div><br></div>Apenas complementando a resposta, ao invés de colocar um valor arbitrário para cima (aquele +0.5 no text()) é possível calcular o espaço exato que o texto vai ocupar através da função strheight(), assim o comando fica mais genérico. (Também coloquei no ylim para economizar espaço)<br>
<br>par(mfrow=c(1,2)) # Para ver as duas soluções lado a lado<br>barras<-runif(5,0,10)<br><br>localbarras <-barplot(barras, ylim=c(0,11), main='Grafico 1')<br>text(localbarras,barras+0.5,round(barras,digits=2))<br>
<br>localbarras <- barplot(barras, ylim=c(0,max(barras) + strheight(barras)[1]), main='Grafico 2') # Peguei o 1o pois todos vão ter o mesmo tamanho<br>text(localbarras,barras+strheight(barras),round(barras,digits=2))<br>
<br></div>Só tem que dar algumas adaptadas no código para suportar índices negativos, mas nada difícil<br><div><div><br></div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/7/15 Augusto Ribas <span dir="ltr"><<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Bem uma opção é o seguinte. Fiz um exemplo aqui...<div><br></div><div>#Você tem seus indices, que são barras certo, um valor cada um</div>
<div><div>barras<-runif(5,0,10)</div><div><br></div><div>#Vc fez o grafico de barras com o comando barplot</div>
<div>barplot(barras)</div><div><br></div><div>#Mas na hora de fazer o grafico, atribua ele a uma variavel, como nesse exemplo.</div><div>localbarras<-barplot(barras,ylim=c(0,11))</div><div><br></div><div>#veja que na variavel em questão ficaram salvos o locais das barras</div>
<div>localbarras</div><div><br></div><div>#agora você pode usar o comando text, que escreve dentro da area de plotagem para escrever o que quiser, nessa caso os valores</div><div>text(localbarras,barras+0.5,round(barras,digits=2))</div>
</div><div><br></div><div>#note que eu deixei na hora de vazer o grafico, um espaço em cima com ylim, pra caber as coisas escritas</div><div>#outra coisa é que eu usei round para não ficar muito longo os números, que vai ser seu caso também, mas sei la derrepente você pode diminuir a fonte ou girar os números, são opções também.</div>
<div><br></div><div>Espero que tenha ajudado :)</div><div><br></div><div><br></div><div>PS. De uma olhada na função colorramp, serve para fazer degrade de cores, pode te ajudar a fazer um degrade como acho que era sua intenção com o cinza ai.</div>
<div>O pacote rcolorbrewer também faz palhetas de cores muito bonitas e funcionais :)</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 13 de julho de 2013 14:54, Roberto Leoni <span dir="ltr"><<a href="mailto:rcleoni@yahoo.com.br" target="_blank">rcleoni@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div><div style="font-size:8pt;font-family:verdana,helvetica,sans-serif"><div><span><br></span></div>
<div> </div><b><span style="font-weight:bold"></span></b><br>
<div style="font-family:verdana,helvetica,sans-serif;font-size:8pt"><div style="font-family:times new roman,new york,times,serif;font-size:12pt">Como faço para que os valores do vetor indices apareçam em cima da barra? Obrigado pelo auxílio. <br>
<br>att, Leoni<br><br><br><br>indices <- c(33.2179623,5.9131289, 4.6236819 , 2.3701842, 2.2887414, 2.2575243, 1.5577082, 1.3616533, 1.1463521, 0.8632573, 0.8389924, 0.8232612,<br>0.7109162, 0.2240344, 0.1145878, -1.5093512, -3.8103876, -4.0246571)<br>
<br>itens <- c("Tubérculos, raízes e legumes","Pescados","Farinhas, féculas e massas","Leite e derivados","Enlatados e conservas","Sal e condimentos","Artigos de
limpeza","Frutas","Hortaliças e verduras",<br>"Carnes e peixes industrializados","Bebidas e Infusões","Aves e ovos","Cereais, leguminosas e oleaginosas Higiene pessoal","Panificados","Carnes","Açúcares e Derivados","Óleos e gorduras")<br>
<br>barplot(indices,width=0.87,legend.text=itens,main="Índices por Item - Abril/13 (período base Mar/13)",col=c("gray10","gray15","gray20",<br>"gray25","gray30","gray35","gray40","gray45","gray50","gray55","gray60","gray65","gray70","gray75","gray80","gray85","gray90","gray95"))<br>
<br> </div> </div> </div></div><br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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.<span class="HOEnZb"><font color="#888888"><br></font></span></blockquote>
</div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><div><br></div>-- <br>
<div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div>
</font></span></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></div>