<div dir="ltr">Senhores, bom dia!<div><br></div><div>Apenas supondo...<br><div><br></div><div><font face="courier new, monospace">### <code r></font></div><div><div><font face="courier new, monospace">t1[!duplicated(t1$tecnico),] </font></div>
<div><font face="courier new, monospace">### deverá retornar só a primeira linha (nas demais tecnico="Cavalcante" é duplicado!)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">t1[!duplicated(t1),] ### utiliza todos os campos (colunas) e retorna só linhas distintas!!!</font></div>
<div><font face="courier new, monospace">t1[!duplicated(cbind(t1$data_de_realizacao,t1$tx_tipo_exame,t1$tecnico)),] </font></div><div><font face="courier new, monospace">t1[!duplicated(t1[,3:5]),] ### mesmo que forma anterior</font></div>
<div><font face="courier new, monospace">### as três formas deverão retornarão as linhas 1 e 10, mas a primeira forma não é consistente. </font></div><div><font face="courier new, monospace">### É 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.</font></div>
<div><font face="courier new, monospace"></code></font></div><div><br></div><div>Agora é necessário aplicar o código pra ver se procede. Espero que ajude,</div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">
Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br>
</div></div>
<br><br><div class="gmail_quote">Em 13 de maio de 2014 16:25, Edson Lira <span dir="ltr"><<a href="mailto:edinhoestat@yahoo.com.br" target="_blank">edinhoestat@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
<div><div style="color:rgb(0,0,0);background-color:rgb(255,255,255);font-family:'Courier New',courier,monaco,monospace,sans-serif;font-size:10pt"><div><span>Caros amigos, tenho um banco de exames com a estrutura abaixo</span></div>
<div style="color:rgb(0,0,0);font-size:13.3333px;font-family:'Courier New',courier,monaco,monospace,sans-serif;background-color:transparent;font-style:normal"><font size="1"><br><span></span></font></div><div style="color:rgb(0,0,0);font-size:10px;font-family:'Courier New',courier,monaco,monospace,sans-serif;background-color:transparent;font-style:normal">
<span><font size="1"> id data_de_coleta
data_de_realizacao tx_tipo_exame tecnico<br>1 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br>2 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br>
3 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br>4 161538 2013-01-01 00:31:00
2013-01-01 08:20:01.406 Albumina Cavalcante<br>5 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br>6 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br>
7 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br>8 161538 2013-01-01
00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br>9 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br>10 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>
11 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>12 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>13 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina
Total e Frações Cavalcante<br>14 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>15 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>
16 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>17 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>18 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>
19 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>20 161538
2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>21 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>22 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>
23 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>24 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>25 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>
26 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações
Cavalcante<br>27 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>28 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>29 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>
30 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>31 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>32 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br>
33 161538 2013-01-01 00:31:00
2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br><br></font><br><font style="font-family:'Courier New',courier,monaco,monospace,sans-serif">t1<- ger[order(ger$tecnico,ger$data_de_realizacao, decreasing=TRUE) ,]<br>
<br></font></span></div><div><font style="font-family:'Courier New',courier,monaco,monospace,sans-serif">gern<- t1[!duplicated(t1$tecnico),]<br></font><br>Estou querendo, manter os exames (somente um de cada) eliminando os repetidos e os respectivos técnicos.<br>
<br>Com a rotina acima não estou conseguindo. <br><br>Gostaria de obeter o resultado abaixo: <br><span><font size="1"> id data_de_coleta data_de_realizacao tx_tipo_exame tecnico<br>
1 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br>
</font></span><span><font size="1">10 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante</font></span><br><br>Exemplifiquei com dois tipos de exames, pode ser que tenha 3 ou 4 exames.Só gostaria de eliminar os repetidos.<br>
<br>[ ]'s.<span class=""><font color="#888888"><br></font></span></div><span class=""><font color="#888888"><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas</div></font></span></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div></div></div></div>