<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><div><span style="font-size: 16px; font-family: 'times new roman', 'new york', times, serif; ">#Saudações a todos da lista R-br, fui fazer um gráfico com os dados abaixo</span><br></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;">#e a pessoa que o analisou, reclamou-me dizendo que a soma não foi 100%.</span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;">#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?</span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;">#Observe que a soma não fica 100% mesmo mudando digits para 2,3,...</span></font></div><div><font face="'times new roman',
 'new york', times, serif"><span style="font-size: 16px;"><br></span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;">a=rep("a",9);b=rep("b",30);c=rep("c",5)</span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;">dados=c(a,b,c);tabela=table(dados)</span></font></div><div><span style="font-size: 16px; font-family: 'times new roman', 'new york', times, serif; "><br></span></div><div><span style="font-size: 16px; font-family: 'times new roman', 'new york', times, serif; ">porc=round(table(dados)/length(dados)*100,digits=1)</span><br></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;"><br></span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;">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))</span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;">title(main = "Quantidade e Porcentagem das Categorias :a,b,c")</span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;"><br></span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;"><br></span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;">#Obrigado!</span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;">#Desde já agradeço!</span></font></div><div><font face="'times new roman', 'new york', times, serif"><span style="font-size: 16px;">#Respeitosamente,</span></font></div><div><font face="'times new roman', 'new york', times, serif"><span
 style="font-size: 16px;">#Alex</span></font></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "><br></div></div></div></body></html>