[R-br] arredondar soma para 100%

[Alexandro (Yahoo)]

#Saudações a todos da lista R-br, fui fazer um gráfico com os dados abaixo

#e a pessoa que o analisou, reclamou-me dizendo que a soma não foi 100%.
#Como devo proceder para que a soma seja exatamente 100% ? Ou devo dar um print screen e mudar de 20,5% para 20,4% na categoria a?
#Observe que a soma não fica 100% mesmo mudando digits para 2,3,...

a=rep("a",9);b=rep("b",30);c=rep("c",5)
dados=c(a,b,c);tabela=table(dados)

porc=round(table(dados)/length(dados)*100,digits=1)


graf=barplot(tabela,axes=FALSE,ylim=c(0,100));text(graf,porc,format(porc),pos=1);text(graf,porc,"            %",pos=1);text(graf,porc,format(tabela))
title(main = "Quantidade e Porcentagem das Categorias :a,b,c")


#Obrigado!
#Desde já agradeço!
#Respeitosamente,
#Alex
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120126/74e9982a/attachment.html>