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
Com inap <- table(tip_doa$INAPTIDAO,tip_doa$ano,tip_doa$mês) 'inap' deixa de ter duas dimensões. Portanto, rowSums() é inadequado. Elias T. Krainski
________________________________ De: Edson Lira <edinhoestat@yahoo.com.br> Para: R-br Lista <r-br@listas.c3sl.ufpr.br> Enviadas: Terça-feira, 13 de Dezembro de 2011 13:22 Assunto: [R-br] Rotina order
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 _______________________________________________ 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.
participantes (2)
-
Edson Lira -
Elias T. Krainski