Rodei estes comandos com os anteriores e não vi diferença!

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)
pNaive = round(prop.table(tabela), digits=3)
pFix = round(pNaive/sum(pNaive)*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")

Alex, o que vc esta' observado e' a acumulacao de erros de
representacao, devido ao arredondamento. Uma forma de corrigir isso eh
normalizar as proporcoes. Usando os dados aos quais voce referiu-se
acima:

pNaive = round(prop.table(tabela), digits=3)
pFix = round(pNaive/sum(pNaive)*100, digits=1)

Entretanto, note que essa solucao (como representada acima) pode nao
ser geral e exigir algumas repeticoes (afinal, a todo momento voce
esta' tentando representar numeros com trocentas casas decimais num
grau de granularidade bem maior).

Ivan, sobre a representacao de 9/44... Eh 0.20454545... (periodica no
45). Ou, usando a escala acima: 20.4545454545.... Arredondar para a
i-esima casa decimal (pelo menos conforme eu aprendi, que eh
concordante com a implementacao do R) consiste em truncar na casa
(i+1), testar se aquele digito e' maior ou igual a 5 e, se sim,
incrementar a casa i em 1 unidade. Dito isso:

- Arredondar para 1 digito: Segundo digito eh 5, entao incrementa o
primeiro: 20.5
- Arredondar para 2 digitos: Terceiro digito eh 4, entao mantem o segundo: 20.45
- Arredondar para 3 digitos: Quarto digito eh 5, entao incrementa o
terceiro: 20.455

Pode ser que a estrategia a qual voce esteja se referindo seja diferente?

b
.