<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Boa tarde,<br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Outra ideia, seguindo basicamente a mesma abordagem proposta pelo Augusto Ribas:<br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default"><span style="font-family:monospace,monospace">### <code r><br></span></div><div class="gmail_default"><span style="font-family:monospace,monospace">PROCESSO <- c("5.157.658-4","5.155.855-8","5.153.696-8","5.153.696-8","5.154.220-6",NA,NA,NA,"5.155.401-1","5.155.960-6",NA,"5.157.157-7","5.157.658-4","5.157.658-4")<br>set.seed(123); dados <- data.frame(PROCESSO, V1=sample(1:3, 14, rep=T), V2=sample(1:3, 14, rep=T))<br>dados<br><br>dup1 <- duplicated(dados[,1]) & !<a href="http://is.na">is.na</a>(dados[,1]) # Casos com No. Processo duplicado (exceto casos com NA)<br>dados[which(dup1),] # duplicatas<br>dados[-which(dup1),] # sem duplicidade<br><br>dup2 <- duplicated(dados[,2:3]) & !dup1; dados[which(dup2),] # Nos restantes, casos com duplicidade em outros campos<br><br></span></div><div class="gmail_default"><span style="font-family:monospace,monospace">### filtragem com dois critérios<br></span></div><div class="gmail_default"><span style="font-family:monospace,monospace">dup <- (dup1 | dup2); which(dup)<br>dados[which(dup),] # duplicatas<br>dados[-which(dup),] # sem duplicidade<br></span></div><div class="gmail_default" style="font-family:verdana,sans-serif"><span style="font-family:monospace,monospace">### </code></span><br></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><font style="font-size:small" face="arial, helvetica, sans-serif"><div style="font-family:'trebuchet ms',sans-serif;display:inline"></div></font><font style="font-size:12.8px" face="arial, helvetica, sans-serif"><span style="font-size:small">================================================</span><br>Éder Comunello</font><div style="font-size:12.8px"><span style="font-family:arial,helvetica,sans-serif">Agronomist (UEM), MSc in Environ. Sciences (UEM)</span><font face="arial, helvetica, sans-serif"><br></font></div><div style="font-size:12.8px"><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">DSc in Agricultural Systems Engineering (USP/Esalq)</span><br></div><div><span style="font-size:small">Brazilian Agricultural Research Corporation (</span><font style="font-size:small" face="arial, helvetica, sans-serif">Embrapa)</font></div><div><div><font style="font-size:small" face="arial, helvetica, sans-serif">Dourados, MS, Brazil </font><font face="arial, helvetica, sans-serif" size="2">|<O>|</font></div><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">================================================</span><br></div></div></div><div style="font-size:small"><font face="arial, helvetica, sans-serif">GEO, </font>-22.2752, -54.8182, 408m<span style="font-family:arial,helvetica,sans-serif"><br></span></div><div style="font-size:12.8px"><span style="font-size:small;font-family:arial,helvetica,sans-serif">UTC-04:00 / DST: UTC-03:00</span></div><div><div><div><br></div><div><br></div></div><div style="font-size:small"><br></div></div></div></div></div></div></div></div></div></div></div>
<br><div class="gmail_quote">Em 27 de abril de 2016 11:25, Amikobh <span dir="ltr"><<a href="mailto:amikobh@gmail.com" target="_blank">amikobh@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div bgcolor="#FFFFFF" text="#000000">
Prezado,<br>
<br>
Não estou conseguindo fazer de tal forma que conserve as outras
variáveis e linhas<div><div class="h5"><br>
<br>
<div>Às 12:35 de 26/04/2016, Augusto Ribas
escreveu:<br>
</div>
</div></div><blockquote type="cite"><div><div class="h5">
<div dir="ltr">Segue um exemplo, veja se é isso que você quer
fazer.<br>
<div><br>
PROCESSO<-c("5.157.658-4","5.155.855-8","5.153.696-8","5.153.696-8","5.154.220-6",NA,NA,NA,"5.155.401-1","5.155.960-6",NA,"5.157.157-7","5.157.658-4","5.157.658-4")<br>
dados<-data.frame(Coluna1=NA,PROCESSO,Coluna3=NA)<br>
<br>
###OS dados devem estar assim, note que eu adicionei uns 3
casos duplicadas aos dados<br>
dados<br>
<br>
###Denovo fazemos um indice, mas vamos querer saber quem não é
vaziu, note que o ! inverte a saida do <a href="http://is.na" target="_blank">is.na</a><br>
vaziu<-!<a href="http://is.na" target="_blank">is.na</a>(dados$PROCESSO)<br>
<br>
###E encontramos os duplicados com a função duplicated, note o
que ela faz no exemplo<br>
duplicated(c(1,1,2,3))<br>
duplicado<-duplicated(dados$PROCESSO)<br>
<br>
###Agora é so fazer um teste logico, pegar quem não é vaziu e
é duplicado <br>
indice<-which(!(vaziu & duplicado))<br>
<br>
##Agora é so usar o indice para preencher a coluna<br>
dados_semcopias<-dados[indice,]<br>
<br>
dados_semcopias<br>
</div>
</div>
<div class="gmail_extra"><br>
<div class="gmail_quote">Em 22 de abril de 2016 19:27, Amikobh <span dir="ltr"><<a href="mailto:amikobh@gmail.com" target="_blank">amikobh@gmail.com</a>></span>
escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Prezados,<br>
<br>
Tenho um banco com mais de 8000 linhas e 27 variáveis.<br>
<br>
Uma das variáveis é a "Processo". Nela, tenho várias linhas
em branco e dados repetidos. Como faço para excluir as
linhas duplicadas sem excluir as que estão em branco?<br>
<br>
De tal forma que depois eu tenha um novo banco com estas
modificações.<br>
<br>
Agradecido pela ajuda!<br>
<br>
<br>
PROCESSO<br>
5.155.855-8<br>
<br>
5.153.696-8<br>
5.154.220-6<br>
<br>
<br>
<br>
5.154.220-6<br>
5.155.960-6<br>
<br>
5.157.157-7<br>
5.154.220-6<br>
<br>
Elerson<br>
<br>
<br>
<br>
<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e
fornea cdigo mnimo reproduzvel.</blockquote>
</div>
<br>
<br clear="all">
<br>
-- <br>
<div>
<div dir="ltr">
<div>Grato<br>
Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a></div>
<div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br>
</div>
</div>
</div>
</div>
<br>
<fieldset></fieldset>
<br>
</div></div><pre><div><div class="h5">_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<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></div></div>
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.</pre>
</blockquote>
<br>
</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" rel="noreferrer" 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" rel="noreferrer" 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>