<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:16px"><div id="yui_3_16_0_1_1433987229240_4377"><span id="yui_3_16_0_1_1433987229240_4376">Meu caro, para gerar tabelas simples uso a rotina abaixo:</span></div><div class="" style="" id="yui_3_16_0_1_1433987229240_4397"><br class="" style=""></div><div class="" style="" id="yui_3_16_0_1_1433987229240_4398">Seja o banco: df</div><div class="" style="" id="yui_3_16_0_1_1433987229240_4399" dir="ltr"><span class="" style="">df[df==""]<-NA</span></div><div class="" style="" id="yui_3_16_0_1_1433987229240_4399"><span class="" style="">tabelas</span><span class="" style=""><-</span>function<span class="" style="">(</span><span class="" style="">x</span><span class="" style="">){</span></div><div class="" style="" id="yui_3_16_0_1_1433987229240_4400"><span class="" style=""> </span><span class="" style="">Qtde</span><-table(<span class="" style="">x</span>)</div><div class="" style="" id="yui_3_16_0_1_1433987229240_4401"><span class="" style=""> </span><span class="" style="">Perc</span><-<span class="" style="">100</span>*prop.table(table(<span class="" style="">x</span>))</div><div class="" style="" id="yui_3_16_0_1_1433987229240_4402"><span class="" style=""> </span><span class="" style="">tab</span><-cbind(<span class="" style="">Qtde</span>,<span class="" style="">Perc</span>)</div><div class="" style="" id="yui_3_16_0_1_1433987229240_4446"><span class="" style=""> </span><span class="" style="">Total</span><-colSums(<span class="" style="">tab</span>)</div><div class="" style="" id="yui_3_16_0_1_1433987229240_4403"><span class="" style=""> </span>rbind(<span class="" style="">tab</span>,<span class="" style="" id="yui_3_16_0_1_1433987229240_4447">Total</span>)</div><div>
</div><div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_4448"><span class="" style=""> </span>}</div><div></div><div id="yui_3_16_0_1_1433987229240_4309"> </div><div id="yui_3_16_0_1_1433987229240_4309">
<div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_4943"><span class="" style="">apply(</span>df<span class="" style="">,</span><span class="" style="">2</span><span class="" style="">,</span>tabelas<span class="" style="">)</span></div><div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_5045"><span class="" style=""><br></span></div><div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_5044"><span class="" style=""><br></span></div><div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_4988"><span class="" style="" id="yui_3_16_0_1_1433987229240_4987">Você terá todas tabelas com Qtde e perc de seu banco.</span></div><div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_4986"><span class="" style=""><br></span></div><div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_4948">Para gerar tabelas com duas ou mais entradas, uso:</div><div class="" style="" dir="ltr" id="yui_3_16_0_1_1433987229240_5046"><span class="" style="" id="yui_3_16_0_1_1433987229240_5048">v12</span><-<span class="" style="" id="yui_3_16_0_1_1433987229240_5049">100</span>*prop.table(table(<span class="" style="">df</span>$<span class="" style="">var1</span>,<span class="" style="">df</span>$<span class="" style="">var2</span>))</div><div class="" style="" id="yui_3_16_0_1_1433987229240_5047">ftable(addmargins(<span class="" style="" id="yui_3_16_0_1_1433987229240_5051">v12</span>, c(<span class="" style="">1</span>,<span class="" style="">2</span>),</div><div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_4948">
</div><div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_5050"> <span class="" style="">FUN</span>=list(<span class="" style="">Total</span> = <span class="" style="">sum</span>)))</div><div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_4947"><span class="" style=""><br></span></div><div class="" dir="ltr" style="" id="yui_3_16_0_1_1433987229240_4946"><span class="" style=""><br></span></div></div><div id="yui_3_16_0_1_1433987229240_4309">[ ]'s</div><div id="yui_3_16_0_1_1433987229240_4308"><div id="yui_3_16_0_1_1433987229240_4307">Edson Lira<br>Estatístico<br>Manaus-Amazonas</div></div> <br><div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: times new roman, new york, times, serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"> <font size="2" face="Arial"> Em Quarta-feira, 3 de Junho de 2015 23:00, Paulo Abreu <abreups@me.com> escreveu:<br> </font> </div> <br><br> <div class="y_msg_container">As funções melt e dcast fazem a mágica.<br clear="none"><br clear="none">> Em 03/06/2015, à(s) 10:47, Diego Miro <<a shape="rect" ymailto="mailto:d.miro1089@gmail.com" href="mailto:d.miro1089@gmail.com">d.miro1089@gmail.com</a>> escreveu:<br clear="none">> <br clear="none">> Alexandre, dependendo do que você quer fazer há algumas opções.<br clear="none">> <br clear="none">> Procure pelas funções xtable() e aggregate()<br clear="none">> <br clear="none">> No pacote reshape2 tem a função cast() também.<br clear="none">> <br clear="none">> Um abraço.<br clear="none">> <br clear="none">> <br clear="none">> _______________________________________________<br clear="none">> R-br mailing list<br clear="none">> <a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">> <a shape="rect" 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 clear="none">> Leia o guia de postagem (<a shape="rect" 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.<div class="yqt4208825057" id="yqtfd40934"><br clear="none"><br clear="none">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" 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 clear="none">Leia o guia de postagem (<a shape="rect" 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.</div><br><br></div> </div> </div> </div></div></body></html>