Nossa, nunca tinha visto esse comando, muito interessante :)
Em 15 de julho de 2013 16:23, Rodrigo Coster <[email protected]> escreveu: > > 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) > > par(mfrow=c(1,2)) # Para ver as duas soluções lado a lado > barras<-runif(5,0,10) > > localbarras <-barplot(barras, ylim=c(0,11), main='Grafico 1') > text(localbarras,barras+0.5,round(barras,digits=2)) > > 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 > text(localbarras,barras+strheight(barras),round(barras,digits=2)) > > Só tem que dar algumas adaptadas no código para suportar índices > negativos, mas nada difícil > > > > 2013/7/15 Augusto Ribas <[email protected]> > >> Bem uma opção é o seguinte. Fiz um exemplo aqui... >> >> #Você tem seus indices, que são barras certo, um valor cada um >> barras<-runif(5,0,10) >> >> #Vc fez o grafico de barras com o comando barplot >> barplot(barras) >> >> #Mas na hora de fazer o grafico, atribua ele a uma variavel, como nesse >> exemplo. >> localbarras<-barplot(barras,ylim=c(0,11)) >> >> #veja que na variavel em questão ficaram salvos o locais das barras >> localbarras >> >> #agora você pode usar o comando text, que escreve dentro da area de >> plotagem para escrever o que quiser, nessa caso os valores >> text(localbarras,barras+0.5,round(barras,digits=2)) >> >> #note que eu deixei na hora de vazer o grafico, um espaço em cima com >> ylim, pra caber as coisas escritas >> #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. >> >> Espero que tenha ajudado :) >> >> >> 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. >> O pacote rcolorbrewer também faz palhetas de cores muito bonitas e >> funcionais :) >> >> >> Em 13 de julho de 2013 14:54, Roberto Leoni <[email protected]>escreveu: >> >>> >>> >>> ** >>> Como faço para que os valores do vetor indices apareçam em cima da >>> barra? Obrigado pelo auxílio. >>> >>> att, Leoni >>> >>> >>> >>> 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, >>> 0.7109162, 0.2240344, 0.1145878, -1.5093512, -3.8103876, -4.0246571) >>> >>> 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", >>> "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") >>> >>> barplot(indices,width=0.87,legend.text=itens,main="Índices por Item - >>> Abril/13 (período base Mar/13)",col=c("gray10","gray15","gray20", >>> >>> "gray25","gray30","gray35","gray40","gray45","gray50","gray55","gray60","gray65","gray70","gray75","gray80","gray85","gray90","gray95")) >>> >>> >>> _______________________________________________ >>> R-br mailing list >>> [email protected] >>> 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. >>> >> >> >> >> -- >> Grato >> Augusto C. A. Ribas >> >> Site Pessoal: http://recologia.com.br/<http://augustoribas.heliohost.org> >> Github: https://github.com/Squiercg >> Lattes: http://lattes.cnpq.br/7355685961127056 >> >> _______________________________________________ >> R-br mailing list >> [email protected] >> 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. >> > > > _______________________________________________ > R-br mailing list > [email protected] > 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. > -- Grato Augusto C. A. Ribas Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056
_______________________________________________ R-br mailing list [email protected] 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.
