[R-br] Duvida no TAPPLY

[Edson Lira]

Jonas, usei sua rotina abaixo e funcionou. Muito obrigado. 


> addmargins(tapply(acj$Quantidade,list(Laboratório=acj$lab,Mês=acj$Mês),sum,na.rm=T))#Laboratórios
                             Mês
Laboratório                     Jan   Fev   Mar   Abr   Mai   Jun   Jul   Ago   Set   Out   Nov    Sum
  Bioquímica                  24927 25529 24589 23736 29551 30175 28760 29220 24291 22189 25452 288419
  Estudo de Hemoglobinopatias   300   226   232   201   293   360   209   243   233   208   213   2718
  H. Pardini                    546   479   436   360   433   403   405   455   357   310   387   4571
  HEMATOLOGIA                  8764  8877  8398  7969  9389  9360  9264  9585  8145  7548  8336  95635
  HORMÔNIOS                    1137  1276  1307  1271  1579  1522  1479  1519  1257  1286  1348  14981
  IMUNOLOGIA ERITROCITÁRIA     1961  1942  1890  1820  2132  2206  1996  1992  1736  1564  1879  21118
  PARASITOLOGIA/URINÀLISE      4365  4265  3477  3526  4183  4581  4581  4582  3898  3667  3910  45035
  HEMOSTASIA                   1174   987  1025   928  1266  1167  1257  1134   792   732   863  11325
  IMUNOLOGIA                   1839  1570  1428  2220  1715  1522  1266  1490  1349  1253  1484  17136
  SOROLOGIA                    3327  3116  2863  3431  4437  4426  4294  4134  2834  1993  2068  36923
  PATOLOGIA CLÍNICA              42    60    51    69    38    43    48    37    53    41    39    521
  TESTE DO PESINHO               23    34    10     2     8     1     2    NA     1     5     5     NA
  Citoquímica                     3     4     0     1     0     0     0    NA    NA    NA    NA     NA
  Laboratório de Apoio            6     3     1     0     1     1     1    NA     1    NA     1     NA
  Hemoam/HLA                     93    41    49   131   106   152   365   303   136   127    63   1566
  Outro                           0     9    15     8    12    11    17    14    19    14    16    135
  Sum                         48507 48418 45771 45673 55143 55930 53944    NA    NA    NA    NA     NA


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 
NAS.

 
Edson Lira
Estatístico
Manaus-Amazonas


________________________________
 De: jonas bodini alonso <jonasbal em ig.com.br>
Para: r-br em listas.c3sl.ufpr.br; Edson Lira <edinhoestat em yahoo.com.br> 
Enviadas: Terça-feira, 14 de Agosto de 2012 15:03
Assunto: Re: [R-br] Duvida no TAPPLY
 

use addmargins

Jonas


Em 14 de agosto de 2012 10:38, Edson Lira <edinhoestat em 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 em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120815/5c60820c/attachment.html>