[R-br] gráfico de barras

[Augusto Ribas]

Nossa, nunca tinha visto esse comando, muito interessante :)


Em 15 de julho de 2013 16:23, Rodrigo Coster <rcoster em gmail.com> 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 <ribas.aca em gmail.com>
>
>> 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 <rcleoni em yahoo.com.br>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
>>> R-br em 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.
>>>
>>
>>
>>
>> --
>> 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
>> R-br em 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.
>>
>
>
> _______________________________________________
> R-br mailing list
> R-br em 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.
>



-- 
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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130715/389acbf7/attachment.html>