<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span>Com <br></span></div><div> inap <- table(tip_doa$INAPTIDAO,tip_doa$ano,tip_doa$mês)</div><div>'inap' deixa de ter duas dimensões. Portanto, rowSums() é inadequado.<br></div><div> </div><div>Elias T. Krainski<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; margin-top: 5px; padding-left: 5px;"> <div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"> <div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"> <font face="Arial" size="2"> <hr size="1"> <b><span style="font-weight: bold;">De:</span></b> Edson Lira <edinhoestat@yahoo.com.br><br> <b><span style="font-weight: bold;">Para:</span></b> R-br Lista <r-br@listas.c3sl.ufpr.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Terça-feira, 13 de
Dezembro de 2011 13:22<br> <b><span style="font-weight: bold;">Assunto:</span></b> [R-br] Rotina order<br> </font> <br><meta http-equiv="x-dns-prefetch-control" content="off"><div id="yiv1003815396"><div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); 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></div></div><meta http-equiv="x-dns-prefetch-control" content="on"><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br"
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><br> </div> </div> </blockquote></div> </div></body></html>