<html><body><div style="color:#000; background-color:#fff; font-family:bookman old style, new york, times, serif;font-size:12pt"><div><span>Boa tarde R-br lista, estou com um pequeno problema.</span></div><div><br><span></span></div><div><span>Tenho uma lista de exames que associo ao laboratório respectivo, vejam um exemplo abaixo:<br></span></div><div><br><span></span></div><div><span><font style="font-family: Courier New,courier,monaco,monospace,sans-serif;" size="1"> Descrição lab Quantidade<br>1 17 ALFA HIDROXI PROGESTERONA <NA>
1<br>2 ACIDO URICO Bioquímica 1<br>3 ACIDO URICO Bioquímica 1<br>4 ACIDO URICO Bioquímica
1<br>5 ACIDO URICO Bioquímica 1<br>6 ACIDO URICO Bioquímica 4<br>7 ACIDO URICO Bioquímica
9<br>8 ACIDO URICO Bioquímica 1<br>9 ACIDO URICO Bioquímica 1480<br>10 ACIDO URICO Bioquímica 37<br>11 ACIDO
VALPROICO <NA> 1<br>12 ALANINA AMINOTRANSFERASE (ALT/GPT) IFCC <NA> 1<br>13 ALBUMINA Bioquímica 205<br>14 ALBUMINA Bioquímica 17<br>15 ALFA-FETO-PROTEINA
HORMÔNIOS 3<br>16 ALFA-FETO-PROTEINA HORMÔNIOS 2<br>17 AMILASE Bioquímica 77<br>18 AMILASE Bioquímica
4<br>19 ANDROSTENEDIONA <NA> 1<br>20 ANDROSTENEDIONA <NA> 1<br><br></font></span></div><div><span>Para gerar os dados de contagem dos exames por laboratório.<br></span></div><div><br><span></span></div><div><span><br></span></div><div> <span>Estou implementando uma rotina para otimizar o trabalho de consolidação dos dados. O problema é que alguns exames que já estão associados ao respectivo laboratório quando não são realizados no período, eles não
têm registros, mas no script estão relacionados, vejam a rotina abaixo:<br><br>library(memisc)<br><br>acj$lab<-recode(acj$Lab,<br>"Bioquímica" <-c("ACIDO URICO","ALBUMINA","BILIRRUBINA DIRETA",<br>"BILIRRUBINA INDIRETA","BILIRRUBINA TOTAL E FRAÇÕES","BILIRRUBINAS TOTAL",<br>"COLESTEROL", "COLESTEROL HDL", "COLESTEROL LDL", "COLESTEROL VLDL",<br>"CREATININA","DHL - DESIDROGENASE LÁCTICA", "FERRITINA", "FERRO SÉRICO",<br>"FERRO SÉRICO LABTEST", "FOSFATASE ALCALINA", <br>"FOSFATASE ÁCIDA FRAÇÃO PROSTÁTICA", "FOSFATASE ÁCIDA PROSTÁTICA (RIE)", "FOSFORO",<br>"GAMA GT- GAMA-GLUTAMIL-TRANSFERASE", "GLICOSE", "GLICOSE COM FLUORETO", "GLICOSE POS-PRANDIAL",<br>"GLICOSE-6-FOSFATO DEHIDROGENASE (GGFD)", "GLOBULINA", "HEMOGLOBINA GLICOSILADA",<br>"LIPIDIOS TOTAIS", "LIPIDOGRAMA", "MAGNESIO", "POTÁSSIO", "PROTEINAS TOTAIS",<br>"SATURAÇÃO DE TRANSFERRINA","SÓDIO","TRANSAMINASE OXALACÉTICA - AST", "TRANSAMINASE PIRÚVICA -
ALT",<br>"TRANSAMINASES", "TRANSAMINASES", "TRANSFERRINA", "ALFA-1 GLICOPROTEINA ÁCIDA",<br>"ALT-TRANSAMINASE PIRÚVICA", "AMILASE", "AST-TRANSSAMINASE OXALACÉTICA",<br>"CÁLCIO","CAPACIDADE DE OXIDAÇÃO DO FERRO","COLESTEROL TOTAL","COLESTEROL TOTAL E FRAÇÕES",<br> "ESTUDO DO FERRO", "FOSFATASE ÁCIDA TOTAL", "TESTE DE ROG", "TRIGLICERÍDEOS", <br>"URÉIA", "LÍTIO"),<br><br>"Citoquímica" <-c("FOSFATASE ALCALINA DE LEUCOCITOS", "IMUNOFENOTIPAGEM"))<br><br>Quando rodo esta rotina o R mostra a mensagem:<br><br>Erro em factor(y, levels = 1:max(y), labels = newcodes) : <br> invalid labels; length 13 should be 1 or 12<br>Além disso: Mensagens de aviso perdidas:<br>In recode(acj$Lab, "Bioquímica" <- c("ACIDO URICO", "ALBUMINA", :<br> recoding "Citoquímica" <- c("FOSFATASE ALCALINA DE LEUCOCITOS", "IMUNOFENOTIPAGEM") has no consequences<br> <br>O problema é que não existe nenhum exame associado ao laboratório
de Citoquímica (</span><span>FOSFATASE ALCALINA DE LEUCOCITOS", "IMUNOFENOTIPAGEM</span><span>). ou seja não foi realizado nenhum exame, portanto, não aparecem no banco, como resolver este problema? <br> <br><br><br>[]'s<br></span></div><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas</div></div></body></html>