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 <[email protected]> > 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 > [email protected] > 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. >
_______________________________________________ R-br mailing list [email protected] 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.
