<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="gmail_extra"><br><br><div class="gmail_quote">2013/2/18 Edson Lira <span dir="ltr"><<a href="mailto:edinhoestat@yahoo.com.br" target="_blank">edinhoestat@yahoo.com.br</a>></span><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: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="HOEnZb"><font color="#888888"><br><span style="font-size:x-small"> </span></font></span></div><span class="HOEnZb"><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 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></div>