completando addmargins(tapply(acj$Quantidade,list(Laboratório=acj$lab,Mês=acj$ Mês),sum,na.rm=T)#Laboratórios) Cordialmente Jonas Em 14 de agosto de 2012 16:03, jonas bodini alonso <jonasbal@ig.com.br>escreveu:
use addmargins
Jonas
Em 14 de agosto de 2012 10:38, Edson Lira <edinhoestat@yahoo.com.br>escreveu:
Estou usando esta rotina e obtenho
tapply(acj$Quantidade,list(Laboratório=acj$lab,Mês=acj$Mês),sum,na.rm=T)#Laboratórios
E obtenho esta saída abaixo, que me dá o quantitativo de exames mensal, para obter a soma nas linhas e a soma nas colunas,o que devo acrescdentar a rotina?
Mês Laboratório Jan Fev Mar Abr Mai Jun Jul Ago Set Out Bioquímica 24927 25529 24589 23736 29551 30175 28760 29220 24291 22189 Estudo de Hemoglobinopatias 300 226 232 201 293 360 209 243 233 208 H. Pardini 546 479 436 360 433 403 405 455 357 310 HEMATOLOGIA 8764 8877 8398 7969 9389 9360 9264 9585 8145 7548 HORMÔNIOS 1137 1276 1307 1271 1579 1522 1479 1519 1257 1286 IMUNOLOGIA ERITROCITÁRIA 1961 1942 1890 1820 2132 2206 1996 1992 1736 1564 PARASITOLOGIA/URINÀLISE 4365 4265 3477 3526 4183 4581 4581 4582 3898 3667 HEMOSTASIA 1174 987 1025 928 1266 1167 1257 1134 792 732 IMUNOLOGIA 1839 1570 1428 2220 1715 1522 1266 1490 1349 1253 SOROLOGIA 3327 3116 2863 3431 4437 4426 4294 4134 2834 1993
[ ]'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.