<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:10pt"><div><span>Jonas, usei sua rotina abaixo e funcionou. Muito obrigado. <br></span></div><div><span><br></span></div><div><span>> addmargins(tapply(acj$Quantidade,list(Laboratório=acj$lab,Mês=acj$Mês),sum,na.rm=T))#Laboratórios<br> Mês<br>Laboratório Jan Fev Mar Abr Mai Jun Jul Ago Set Out Nov Sum<br>
Bioquímica 24927 25529 24589 23736 29551 30175 28760 29220 24291 22189 25452 288419<br> Estudo de Hemoglobinopatias 300 226 232 201 293 360 209 243 233 208 213 2718<br> H. Pardini 546 479 436 360 433 403 405 455 357 310 387 4571<br> HEMATOLOGIA 8764 8877 8398 7969 9389 9360 9264 9585 8145 7548
8336 95635<br> HORMÔNIOS 1137 1276 1307 1271 1579 1522 1479 1519 1257 1286 1348 14981<br> IMUNOLOGIA ERITROCITÁRIA 1961 1942 1890 1820 2132 2206 1996 1992 1736 1564 1879 21118<br> PARASITOLOGIA/URINÀLISE 4365 4265 3477 3526 4183 4581 4581 4582 3898 3667 3910 45035<br> HEMOSTASIA 1174 987 1025 928 1266 1167 1257 1134 792 732 863 11325<br>
IMUNOLOGIA 1839 1570 1428 2220 1715 1522 1266 1490 1349 1253 1484 17136<br> SOROLOGIA 3327 3116 2863 3431 4437 4426 4294 4134 2834 1993 2068 36923<br> PATOLOGIA CLÍNICA 42 60 51 69 38 43 48 37 53 41 39 521<br> TESTE DO PESINHO
23 34 10 2 8 1 2 NA 1 5 5 NA<br> Citoquímica 3 4 0 1 0 0 0 NA NA NA NA NA<br> Laboratório de Apoio 6 3 1 0 1 1 1
NA 1 NA 1 NA<br> Hemoam/HLA 93 41 49 131 106 152 365 303 136 127 63 1566<br> Outro 0 9 15 8 12 11 17 14 19 14 16 135<br>
Sum 48507 48418 45771 45673 55143 55930 53944 NA NA NA NA NA<br></span></div><div>Veja que nas somas aonde existe NA, a soma não foi efetivada, o que está faltando que ainda não identifiquei? não consegui eliminar os <br>NAS.<br><br> </div><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas<br></div> <div style="font-family: Courier New, courier, monaco, monospace, sans-serif; font-size: 10pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div dir="ltr"> <font face="Arial" size="2"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> jonas bodini alonso <jonasbal@ig.com.br><br> <b><span style="font-weight: bold;">Para:</span></b>
r-br@listas.c3sl.ufpr.br; Edson Lira <edinhoestat@yahoo.com.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Terça-feira, 14 de Agosto de 2012 15:03<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] Duvida no TAPPLY<br> </font> </div> <br><div id="yiv752860271">use addmargins<div><br></div><div>Jonas<br><br><div class="yiv752860271gmail_quote">Em 14 de agosto de 2012 10:38, Edson Lira <span dir="ltr"><<a rel="nofollow" ymailto="mailto:edinhoestat@yahoo.com.br" target="_blank" href="mailto:edinhoestat@yahoo.com.br">edinhoestat@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="yiv752860271gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div style="font-size:10pt;font-family:Courier New, courier, monaco, monospace, sans-serif;"><div><span>Estou usando esta rotina e obtenho<br>
</span></div><div><span>tapply(acj$Quantidade,list(Laboratório=acj$lab,Mês=acj$Mês),sum,na.rm=T)#Laboratórios</span></div><div> <br>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?<br>
<br> Mês<br>Laboratório Jan Fev Mar Abr Mai Jun Jul Ago Set Out<br>
Bioquímica 24927 25529 24589 23736 29551 30175 28760 29220 24291 22189<br> Estudo de Hemoglobinopatias 300 226 232 201 293 360 209 243 233 208<br> H. Pardini 546 479 436 360 433 403 405 455 357 310<br>
HEMATOLOGIA 8764 8877 8398 7969 9389 9360 9264 9585 8145 7548<br>
HORMÔNIOS 1137 1276 1307 1271 1579 1522 1479 1519 1257 1286<br> IMUNOLOGIA ERITROCITÁRIA 1961 1942 1890 1820 2132 2206 1996 1992 1736 1564<br> PARASITOLOGIA/URINÀLISE 4365 4265 3477 3526 4183 4581 4581 4582 3898 3667<br>
HEMOSTASIA 1174 987 1025 928 1266 1167 1257 1134 792 732<br> IMUNOLOGIA 1839 1570
1428 2220 1715 1522 1266 1490 1349 1253<br> SOROLOGIA 3327 3116 2863 3431 4437 4426 4294 4134 2834 1993<br><br><br>[ ]'s.<span class="yiv752860271HOEnZb"><font color="#888888"><br><br></font></span></div>
<span class="yiv752860271HOEnZb"><font color="#888888"><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas</div></font></span></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</div><br><br> </div> </div> </div></body></html>