[R-br] arredondar soma para 100%

#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