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

Github: https://github.com/Squiercg

Lattes: http://lattes.cnpq.br/7355685961127056

_______________________________________________
R-br mailing list
R-br@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@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.