Gráfico de barras com números sobre as barras

Para fazer um gráfico de barras com a produção descarregada de diversas frotas e indicar o número de unidades produtivas sobre cada barra utilizei as funções barplot e text. O interessante é que ao criarmos um objeto com o barplot (bp <- barplot(...)) obtemos os pontos médios de cada barra. Assim podemos utilizar estes valores para posicionar corretamente as legendas sobre as barras com text. O comando par(mar=..) indica as margens do gráfico.

Copiando os dados abaixo do clipboard temos:

CAT	Prod	UP
Petrecho 1	17,5	9
Petrecho 2	15,2	20
Petrecho 3	10,3	500
Petrecho 4	8,4	150
Petrecho 5	20,3	900

dados <- read.delim("clipboard",dec=",",header=T)

barras <- data.frame(dados[,c(2)])

rownames(barras)<-dados[,1]

names(barras)<-c("Prod")

barras 

	Prod
Petrecho 1	17,5
Petrecho 2	15,2
Petrecho 3	10,3
Petrecho 4	8,4
Petrecho 5	20,3

   

par(mar=c(12,6,3,2),cex.axis=1.2,cex.lab=1.4)

bp<-barplot(t(as.matrix(barras)),ylim=c(0,max(dados[,2]*1.1)),las=2,ylab="Produção descarregada (t)",col="orange")

box()

text(bp,barras[,1],dados[,3],col="blue",pos=3)