Não vai ficar tao bonito quanto o resultado do ftable(), mas é uma solução:

tab <- data.frame(ftable(addmargins(GEN, c(1,2,3,4),     FUN=list(Total = sum))))
tab[tab$Freq != 0,]


2013/2/18 Edson Lira <edinhoestat@yahoo.com.br>
Bom dia a todos.

Estou analisando um banco que necessito fazer a seguinte rotina:


GEN<-table(m$LOCALDENAS,m$MUNICIPIOR,m$GENOTIPAGE,m$REG)
ftable(addmargins(GEN, c(1,2,3,4),
     FUN=list(Total = sum)))
Que dá essa saída:

                       D        0   0   0   0   0   0   0   0   0   0   0     0
                                     F        0   0   0   0   0   0   0   0   0   0   0     0
                                     Total    0   0   0   0   0   0   0   0   0   0   0     0
                   CAREIRO           A        0   0   0   0   0   0   0   0   0   0   0     0
                                     D        0   0   0   0   0   0   0   0   0   0   0     0
                                     F        0   0   0   0   0   0   0   0   0   0   0     0
                                     Total    0   0   0   0   0   0   0   0   0   0   0     0
                   CASTANHO          A        0   0   0   0   0   0   0   0   0   0   0     0
                                     D        0   0   0   0   0   0   0   0   0   0   0     0
                                     F        0   0   0   0   0   0   0   0   0   0   0     0
                                     Total    0   0   0   0   0   0   0   0   0   0   0     0
                   COARI             A        0   0   0   0   0   0   0   0   0   0   0     0
                                     D        0   0   0   0   0   0   0   0   0   0   0     0
                                     F        0   0   0   0   0   0   0   0   0   0   0     0
                                     Total    0   0   0   0   0   0   0   0   0   0   0     0
                   CODAJAS           A        0   0   0   0   0   0   0   0   0   0   0     0
                                     D        0   0   0   0   0   0   0   0   0   0   0     0
                                     F        0   0   0   0   0   0   0   0   0   0   0     0
                                     Total    0   0   0   0   0   0   0   0   0   0   0     0
                   EIRUNEPE          A        0   0   0   0   0   0   0   0   0   0   0     0
                                     D        0   0   0   0   0   0   0   0   0   0   0     0
                                     F        0   0   0   0   0   0   0   0   0   0   0     0
                                     Total    0   0   0   0   0   0   0   0   0   0   0     0
                   IPIXUNA           A        0   0   0   0   0   0   0   0   0   0   0     0
                                     D        0   0   0   0   0   0   0   0   0   0   0     0
                                     F        0   0   0   0   0   0   0   0   0   0   0     0
                                     Total    0   0   0   0   0   0   0   0   0   0   0     0
                   ITAITUBA          A        0   0   0   0   0   0   0   0   0   0   0     0
                     
A sáida é muito grande e não consigo visualizar na tela de saída do R.
Como eliminar os zeros.

Edson Lira
Estatístico
Manaus-Amazonas

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.