<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:8pt"><span style="font-size: 16px;"><span>Deu uma melhorada Rodrigo.</span> Se alguém tiver alguma outra sugestão, agradeço.<br></span><div><span style="font-size: medium;"><span><br></span></span></div><div><span style="font-size: medium;"> Valeu!!</span></div><div><span style="font-size: 16px;">Edson Lira<br>Estatístico<br>Manaus-Amazonas</span><br></div> <div style="font-family: arial, helvetica, sans-serif; font-size: 8pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div dir="ltr"> <font face="Arial" size="2"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Rodrigo Coster <rcoster@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br; Edson Lira <edinhoestat@yahoo.com.br> <br> <b><span style="font-weight:
bold;">Enviadas:</span></b> Segunda-feira, 18 de Fevereiro de 2013 10:12<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] tabela muito grande<br> </font> </div> <br><div id="yiv1322726987"><div dir="ltr">Não vai ficar tao bonito quanto o resultado do ftable(), mas é uma solução:<div><br></div><div><div>tab <- data.frame(ftable(addmargins(GEN, c(1,2,3,4), FUN=list(Total = sum))))</div><div>tab[tab$Freq != 0,]</div>
</div></div><div class="yiv1322726987gmail_extra"><br><br><div class="yiv1322726987gmail_quote">2013/2/18 Edson Lira <span dir="ltr"><<a rel="nofollow" ymailto="mailto:edinhoestat@yahoo.com.br" target="_blank" href="mailto:edinhoestat@yahoo.com.br">edinhoestat@yahoo.com.br</a>></span><br><blockquote class="yiv1322726987gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div><div style="font-size:12pt;font-family:lucida console, sans-serif;"><div><span>Bom dia a todos.</span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;">
<br><span></span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;"><span>Estou analisando um banco que necessito fazer a seguinte rotina:</span><br></div>
<div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;"><br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;">
<br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;">GEN<-table(m$LOCALDENAS,m$MUNICIPIOR,m$GENOTIPAGE,m$REG)<br>ftable(addmargins(GEN, c(1,2,3,4),<br>
FUN=list(Total = sum))) <br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;">Que dá essa saída:<br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;">
<br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;"> <span style="font-size:10px;">D 0 0 0 0 0 0 0
0 0 0 0 0<br> F 0 0 0 0 0 0 0 0 0 0 0 0<br> Total 0 0 0 0 0 0 0 0 0 0 0
0<br> CAREIRO A 0 0 0 0 0 0 0 0 0 0 0 0<br> D 0 0 0 0 0 0 0 0 0 0 0
0<br> F 0 0 0 0 0 0 0 0 0 0 0 0<br> Total 0 0 0 0 0 0 0 0 0 0 0 0<br>
CASTANHO A 0 0 0 0 0 0 0 0 0 0 0 0<br> D 0 0 0 0 0 0 0 0 0 0 0 0<br>
F 0 0 0 0 0 0 0 0 0 0 0 0<br> Total 0 0 0 0 0 0 0 0 0 0 0 0<br> COARI A 0 0 0 0 0 0 0
0 0 0 0 0<br> D 0 0 0 0 0 0 0 0 0 0 0 0<br> F 0 0 0 0 0 0 0 0 0 0 0
0<br> Total 0 0 0 0 0 0 0 0 0 0 0 0<br> CODAJAS A 0 0 0 0 0 0 0 0 0 0 0
0<br> D 0 0 0 0 0 0 0 0 0 0 0 0<br> F 0 0 0 0 0 0 0 0 0 0 0
0<br> Total 0 0 0 0 0 0 0 0 0 0 0 0<br> EIRUNEPE A 0 0 0 0 0 0 0 0 0 0 0
0<br> D 0 0 0 0 0 0 0 0 0 0 0 0<br> F 0 0 0 0 0 0 0 0 0 0 0
0<br> Total 0 0 0 0 0 0 0 0 0 0 0 0<br> IPIXUNA A 0 0 0 0 0 0 0 0 0 0 0
0<br> D 0 0 0 0 0 0 0 0 0 0 0 0<br> F 0 0 0 0 0 0 0 0 0 0 0
0<br> Total 0 0 0 0 0 0 0 0 0 0 0 0<br> ITAITUBA A 0 0 0 0 0 0 0 0 0 0 0 0<br> <br>
</span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;">A sáida é muito grande e não consigo visualizar na tela de saída do R.<br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;">
Como eliminar os zeros.<span class="yiv1322726987HOEnZb"><font color="#888888"><br><span style="font-size:x-small;"> </span></font></span></div><span class="yiv1322726987HOEnZb"><font color="#888888"><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:lucida console, sans-serif;">
<br></div><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas</div></font></span></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</div><br><br> </div> </div> </div></body></html>