Obrigado pela ajuda Fábio!<div><br></div><div>Abraços<br><br><div class="gmail_quote">Em 26 de novembro de 2012 19:16, Fabio Mathias Corrêa <span dir="ltr"><<a href="mailto:fabio.ufla@yahoo.com.br" target="_blank">fabio.ufla@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="font-size:12pt;font-family:times new roman,new york,times,serif"><div><span><div><font face="times new roman, new york, times, serif">Tente isto!</font></div>
<div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif"><font face="times new roman, new york, times, serif"><br></font></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">
<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> 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 face="Arial"> <hr size="1"> <b><span style="font-weight:bold">De:</span></b> Sérgio Henrique almeida da silva ju <<a href="mailto:sergio.edfisica@gmail.com" target="_blank">sergio.edfisica@gmail.com</a>><br>
<b><span style="font-weight:bold">Para:</span></b> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a> <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><div><div class="h5"> <br><div>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" href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>Tel: (21) 94429486/78101651 id: 123*20942<br>
<br><br>
</div>
</div><br></div></div>_______________________________________________<br>R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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></div><br>_______________________________________________<br>
R-br mailing list<br>
<a 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></blockquote></div><br><br clear="all"><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 href="http://lattes.cnpq.br/1611345552843383">http://lattes.cnpq.br/1611345552843383</a> <br>
Tel: (21) 94429486/78101651 id: 123*20942<br><br><br>
</div>