<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span><div><font face="times new roman, new york, times, serif">Tente isto!</font></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal; "><font face="times new roman, new york, times, serif"><br></font></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal; "><font face="times new roman, new york, times, serif">apply(tabela1,2,function(x) paste(x,"%", sep="") )</font></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "><br></div></span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "></div><div style="font-family: 'times
new roman', 'new york', times, serif; font-size: 12pt; "> Valeu!</div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "><br></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "> Fábio Mathias Corrêa<br><br></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "> Universidade Estadual de Santa Cruz<br>Departamento de Ciências Exatas e da Terra - DCET</div><br><br><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; ">Campus Soane Nazaré de Andrade, km 16 Rodovia Ilhéus-Itabuna<br>CEP 45662-900. Ilhéus-Bahia</div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "><br><br></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; ">Tel.: 73-3680-5076<br> <div style="font-family:
'times new roman', 'new york', times, serif; font-size: 12pt; "> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Sérgio Henrique almeida da silva ju <sergio.edfisica@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Segunda-feira, 26 de Novembro de 2012 18:47<br> <b><span style="font-weight: bold;">Assunto:</span></b> [R-br] Adicionar caractere a uma tabela<br> </font> </div> <br><div id="yiv1889946487">Prezados<div><br></div><div>Gostaria de adicionar um caractere (%) aos meus dados, como faço isso?</div><div><br></div><div>dput(tabela)</div><div><div>structure(c(1361081L, 5468835L, 34263L, 7287738L, 1873030L, 6446889L, </div>
<div>215967L, 10973252L), .Dim = c(4L, 2L), .Dimnames = structure(list(</div><div> Grupo = c("Grupo I", "Grupo II", "Grupo III", "TOTAL"), Sexo = c("Feminino", </div><div>
"Masculino")), .Names = c("Grupo", "Sexo")))</div><div><br></div><div>> tabela1<-round(prop.table(tabela, 1), 2)*100</div><div><br></div><div><br></div><div>gostaria que minha tabela ficasse assim:</div>
<div>> tabela</div><div> Sexo</div><div><div>Grupo Feminino Masculino</div><div> Grupo I 42% 58%</div><div> Grupo II 46% 54%</div><div> Grupo III 14% 86%</div>
<div> TOTAL 40% 60%</div></div><div><br></div><div>Abraços</div><div><br></div><div><br></div><div><br></div>-- <br>Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a rel="nofollow" target="_blank" href="http://lattes.cnpq.br/1611345552843383">http://lattes.cnpq.br/1611345552843383</a> <br>Tel: (21) 94429486/78101651 id: 123*20942<br><br><br>
</div>
</div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br> </div> </div> </div></div></body></html>