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