Senhores, bom dia! Apenas supondo... ### <code r> t1[!duplicated(t1$tecnico),] ### deverá retornar só a primeira linha (nas demais tecnico="Cavalcante" é duplicado!) t1[!duplicated(t1),] ### utiliza todos os campos (colunas) e retorna só linhas distintas!!! t1[!duplicated(cbind(t1$data_de_realizacao,t1$tx_tipo_exame,t1$tecnico)),] t1[!duplicated(t1[,3:5]),] ### mesmo que forma anterior ### as três formas deverão retornarão as linhas 1 e 10, mas a primeira forma não é consistente. ### É comum a 'repetição' intencional do exame (por recomendação médica, p.ex.), de modo que poderão haver registros do mesmo tipo de exame em datas diferentes (e por vezes realizado pelo mesmo técnico). A segunda e terceira forma são 'chaveadas' pelos campos de interesse. </code> Agora é necessário aplicar o código pra ver se procede. Espero que ajude, Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W] Em 13 de maio de 2014 16:25, Edson Lira <edinhoestat@yahoo.com.br> escreveu:
Caros amigos, tenho um banco de exames com a estrutura abaixo
id data_de_coleta data_de_realizacao tx_tipo_exame tecnico 1 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante 2 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante 3 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante 4 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante 5 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante 6 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante 7 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante 8 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante 9 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante 10 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 11 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 12 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 13 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 14 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 15 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 16 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 17 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 18 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 19 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 20 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 21 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 22 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 23 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 24 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 25 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 26 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 27 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 28 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 29 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 30 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 31 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 32 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante 33 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante
t1<- ger[order(ger$tecnico,ger$data_de_realizacao, decreasing=TRUE) ,]
gern<- t1[!duplicated(t1$tecnico),]
Estou querendo, manter os exames (somente um de cada) eliminando os repetidos e os respectivos técnicos.
Com a rotina acima não estou conseguindo.
Gostaria de obeter o resultado abaixo: id data_de_coleta data_de_realizacao tx_tipo_exame tecnico 1 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante 10 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante
Exemplifiquei com dois tipos de exames, pode ser que tenha 3 ou 4 exames.Só gostaria de eliminar os repetidos.
[ ]'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.