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