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 <[email protected]>[email protected]> Dourados, MS - [22 16.5'S, 54 49'W] Em 13 de maio de 2014 16:25, Edson Lira <[email protected]> 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 > [email protected] > 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. >
_______________________________________________ R-br mailing list [email protected] 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.
