<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:10pt"><div><span>Valeu Eder! Vou testar e depois respondo relatando o resultado.<br></span></div><div> <br>[ ]'s.<br></div><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas</div><div style="display: block;" class="yahoo_quoted"> <div style="font-family: Courier New, courier, monaco, monospace, sans-serif; font-size: 10pt;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 12pt;"> <div dir="ltr"> <font face="Arial" size="2"> Em Quarta-feira, 14 de Maio de 2014 8:16, Éder Comunello <comunello.eder@gmail.com> escreveu:<br> </font> </div> <div class="y_msg_container"><div id="yiv7930154120"><div><div dir="ltr">Senhores, bom dia!<div><br clear="none"></div><div>Apenas supondo...<br clear="none"><div><br clear="none"></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 clear="none"></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 clear="none"></div><div>Agora é necessário aplicar o código pra ver se procede. Espero que ajude,</div><div class="yiv7930154120gmail_extra"><br clear="all"><div><div dir="ltr">
Éder Comunello <<a rel="nofollow" shape="rect" ymailto="mailto:comunello.eder@gmail.com" target="_blank" href="mailto:comunello.eder@gmail.com">c</a><a rel="nofollow" shape="rect" ymailto="mailto:omunello.eder@gmail.com" target="_blank" href="mailto:omunello.eder@gmail.com">omunello.eder@gmail.com</a>> <br clear="none">Dourados, MS - [22 16.5'S, 54 49'W]<br clear="none">
</div></div>
<br clear="none"><br clear="none"><div class="yiv7930154120gmail_quote">Em 13 de maio de 2014 16:25, Edson Lira <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:edinhoestat@yahoo.com.br" target="_blank" href="mailto:edinhoestat@yahoo.com.br">edinhoestat@yahoo.com.br</a>></span> escreveu:<br clear="none"><blockquote class="yiv7930154120gmail_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 class="yiv7930154120yqt4446603839" id="yiv7930154120yqt39739"><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 clear="none"><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 clear="none">1 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br clear="none">2 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br clear="none">
3 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br clear="none">4 161538 2013-01-01 00:31:00
2013-01-01 08:20:01.406 Albumina Cavalcante<br clear="none">5 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br clear="none">6 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br clear="none">
7 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br clear="none">8 161538 2013-01-01
00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br clear="none">9 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br clear="none">10 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">
11 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">12 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">13 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina
Total e Frações Cavalcante<br clear="none">14 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">15 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">
16 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">17 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">18 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">
19 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">20 161538
2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">21 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">22 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">
23 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">24 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">25 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">
26 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações
Cavalcante<br clear="none">27 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">28 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">29 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">
30 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">31 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">32 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none">
33 161538 2013-01-01 00:31:00
2013-01-01 08:20:01.859 Bilirrubina Total e Frações Cavalcante<br clear="none"><br clear="none"></font><br clear="none"><font style="font-family:'Courier New', courier, monaco, monospace, sans-serif;">t1<- ger[order(ger$tecnico,ger$data_de_realizacao, decreasing=TRUE) ,]<br clear="none">
<br clear="none"></font></span></div><div><font style="font-family:'Courier New', courier, monaco, monospace, sans-serif;">gern<- t1[!duplicated(t1$tecnico),]<br clear="none"></font><br clear="none">Estou querendo, manter os exames (somente um de cada) eliminando os repetidos e os respectivos técnicos.<br clear="none">
<br clear="none">Com a rotina acima não estou conseguindo. <br clear="none"><br clear="none">Gostaria de obeter o resultado abaixo: <br clear="none"><span><font size="1"> id data_de_coleta data_de_realizacao tx_tipo_exame tecnico<br clear="none">
1 161538 2013-01-01 00:31:00 2013-01-01 08:20:01.406 Albumina Cavalcante<br clear="none">
</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 clear="none"><br clear="none">Exemplifiquei com dois tipos de exames, pode ser que tenha 3 ou 4 exames.Só gostaria de eliminar os repetidos.<br clear="none">
<br clear="none">[ ]'s.<span class="yiv7930154120"><font color="#888888"><br clear="none"></font></span></div><span class="yiv7930154120"><font color="#888888"></font></span><div>Edson Lira<br clear="none">Estatístico<br clear="none">Manaus-Amazonas</div></div></div></div><br clear="none">_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br clear="none"></blockquote></div><br clear="none"></div></div></div></div></div></div><br><br></div> </div> </div> </div> </div></body></html>