Bom dia a todos!
Com a rotina abaixo eu consigo ordenar a tabela.
inap<-table(tip_doa$INAPTIDAO,tip_doa$mês)
inap2 = inap[order(rowSums(inap), decreasing=TRUE),]
ftable(addmargins(inap2, c(1,2),
FUN=list(Total = sum)))
Que me dá a saida abaixo(as primeiras linhas)
jan fev
mar abr mai jun jul ago set out nov Total
ESTEVE EM ZONA DE MALARIA 465 443 387 362 343 347 343 385 550 397 409 4431
HEMATOCRITO IRREGULAR 299 387 478 473 576 393 266 307 362 381 333 4255
VARIAÇÃO DE PARCEIRO SEM PRESERVATIVO (MAIS DE 4 EM 12 MESES) 249 329 240 152 100 183 150 86 110
124 106 1829
VARIAÇÃO DE PARCEIROS SEM PRESERVATIVO (MAIS DE 1 EM 6 MESES) 190 206 147 83 73 104 87 58 103 56 102 1209
VARIAÇÃO DE PARCEIROS SEXUAIS SEM PRESERVATIVO 0 0 20 106 238 135 109 138 134 142
160 1182
GRIPE 119 112 125 98 105 112 75 96 90 84 102 1118
Gostaria de acrescentar o ano e ordenar. Quando acrescento o ano me dá o seguinte problema.
>
inap<-table(tip_doa$INAPTIDAO,tip_doa$ano,tip_doa$mês)
> inap2 = inap[order(rowSums(inap),decreasing=TRUE),]
Erro em inap[order(rowSums(inap), decreasing = TRUE), ] :
número incorreto de dimensões
> inap<-table(tip_doa$INAPTIDAO,tip_doa$ano,tip_doa$mês)
> inap2 = inap[order(rowSums(inap),decreasing=TRUE),]
Erro em inap[order(rowSums(inap), decreasing = TRUE), ] :
número incorreto de dimensões
> ftable(addmargins(inap2, c(1,2,3),
+ FUN=list(Total = sum)))
Erro em newdimnames[[margin]] : índice fora de limites
Qual o problema? Alguém pode me ajudar?
[]'s.
Edson Lira
Estatístico
Manaus-Amazonas