<div dir="ltr">Outra opção seria usar o factor:<div><br></div><div><div>dados$ID <- as.integer(with(dados, factor(paste(Nome, Nome.Mãe, Data.Nascimento))))</div></div></div><div class="gmail_extra"><br><div class="gmail_quote">2016-02-28 12:43 GMT-03:00 Rodrigo Coster <span dir="ltr"><<a href="mailto:rcoster@gmail.com" target="_blank">rcoster@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Wagner,<br><br></div>Uma solução é criar um novo data.frame() só com as variáveis que identificam os registros, tirar os repetidos com o unique(), acrescentar o ID e juntar com merge():<br><br>dados <- read.table(text='Registro;Nome ;Nome Mãe ;Data Nascimento<span class=""><br>1;João;Maria;1976-09-08<br>2;Manuel;Selma;1988-03-10<br>3;João;Maria;1976-09-08<br>4;João;Maria;1976-09-08<br>5;Ricardo;Sonia;1990-05-12<br>6;Marcelo;Marta;1987-08-06<br>7;Ricardo;Sonia;1990-05-12<br>8;João;Maria;1976-09-08<br>9;Ricardo;Sonia;1990-05-12<br></span>10;Marcelo;Marta;1987-08-06', sep = ';', header = TRUE)<br><br>dadosApoio <- unique(subset(dados, select = c(Nome, Nome.Mãe, Data.Nascimento)))<br>dadosApoio$ID <- 1:nrow(dadosApoio)<br><br>dados <- merge(dados, dadosApoio)<br>dados<br><br></div><div class="gmail_extra"><br><div class="gmail_quote"><div><div class="h5">2016-02-28 11:23 GMT-03:00 Wagner Tassinari <span dir="ltr"><<a href="mailto:wtassinari@gmail.com" target="_blank">wtassinari@gmail.com</a>></span>:<br></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div dir="ltr"><div><div>Olá pessoal,<br><br>Tenho um banco com registros repetidos por linha e gostaria de colocar o mesmo identificador (contador) para os registros que são repetidos baseado em alguns atributos. Por exemplo, se o existirem 4 registros com o mesmo nome, nome da mãe e data de nascimento, o identificador será o mesmo.<br><br>Segue um exemplo do meu banco de dados:<br><br>
<table border="0" cellspacing="0">
<colgroup width="63"></colgroup>
<colgroup width="61"></colgroup>
<colgroup width="84"></colgroup>
<colgroup width="120"></colgroup>
<tbody><tr>
<td align="center" height="17">Registro</td>
<td align="center">Nome </td>
<td align="center">Nome Mãe </td>
<td align="center">Data Nascimento</td>
</tr>
<tr>
<td align="center" height="17">1</td>
<td align="center">João</td>
<td align="center">Maria</td>
<td align="center">1976-09-08</td>
</tr>
<tr>
<td align="center" height="17">2</td>
<td align="center">Manuel</td>
<td align="center">Selma</td>
<td align="center">1988-03-10</td>
</tr>
<tr>
<td align="center" height="17">3</td>
<td align="center">João</td>
<td align="center">Maria</td>
<td align="center">1976-09-08</td>
</tr>
<tr>
<td align="center" height="17">4</td>
<td align="center">João</td>
<td align="center">Maria</td>
<td align="center">1976-09-08</td>
</tr>
<tr>
<td align="center" height="17">5</td>
<td align="center">Ricardo</td>
<td align="center">Sonia</td>
<td align="center">1990-05-12</td>
</tr>
<tr>
<td align="center" height="17">6</td>
<td align="center">Marcelo</td>
<td align="center">Marta</td>
<td align="center">1987-08-06</td>
</tr>
<tr>
<td align="center" height="17">7</td>
<td align="center">Ricardo</td>
<td align="center">Sonia</td>
<td align="center">1990-05-12</td>
</tr>
<tr>
<td align="center" height="17">8</td>
<td align="center">João</td>
<td align="center">Maria</td>
<td align="center">1976-09-08</td>
</tr>
<tr>
<td align="center" height="17">9</td>
<td align="center">Ricardo</td>
<td align="center">Sonia</td>
<td align="center">1990-05-12</td>
</tr>
<tr>
<td align="center" height="17">10</td>
<td align="center">Marcelo</td>
<td align="center">Marta</td>
<td align="center">1987-08-06</td>
</tr>
</tbody></table>
<br clear="all"></div>Gostaria obter esse banco com o identificador ID:<br><br>
<table border="0" cellspacing="0">
<colgroup width="63"></colgroup>
<colgroup width="75"></colgroup>
<colgroup width="84"></colgroup>
<colgroup span="2" width="120"></colgroup>
<tbody><tr>
<td align="center" height="17">Registro</td>
<td align="center">ID</td>
<td align="center">Nome </td>
<td align="center">Nome Mãe </td>
<td align="center">Data Nascimento</td>
</tr>
<tr>
<td align="center" height="17">1</td>
<td align="center">1</td>
<td align="center">João</td>
<td align="center">Maria</td>
<td align="center">1976-09-08</td>
</tr>
<tr>
<td align="center" height="17">2</td>
<td align="center">2</td>
<td align="center">João</td>
<td align="center">Selma</td>
<td align="center">1988-03-10</td>
</tr>
<tr>
<td align="center" height="17">3</td>
<td align="center">1</td>
<td align="center">João</td>
<td align="center">Maria</td>
<td align="center">1976-09-08</td>
</tr>
<tr>
<td align="center" height="17">4</td>
<td align="center">1</td>
<td align="center">João</td>
<td align="center">Maria</td>
<td align="center">1976-09-08</td>
</tr>
<tr>
<td align="center" height="17">5</td>
<td align="center">3</td>
<td align="center">Ricardo</td>
<td align="center">Sonia</td>
<td align="center">1990-05-12</td>
</tr>
<tr>
<td align="center" height="17">6</td>
<td align="center">4</td>
<td align="center">Marcelo</td>
<td align="center">Marta</td>
<td align="center">1987-08-06</td>
</tr>
<tr>
<td align="center" height="17">7</td>
<td align="center">3</td>
<td align="center">Ricardo</td>
<td align="center">Sonia</td>
<td align="center">1990-05-12</td>
</tr>
<tr>
<td align="center" height="17">8</td>
<td align="center">1</td>
<td align="center">João</td>
<td align="center">Maria</td>
<td align="center">1976-09-08</td>
</tr>
<tr>
<td align="center" height="17">9</td>
<td align="center">3</td>
<td align="center">Ricardo</td>
<td align="center">Sonia</td>
<td align="center">1990-05-12</td>
</tr>
<tr>
<td align="center" height="17">10</td>
<td align="center">4</td>
<td align="center">Marcelo</td>
<td align="center">Marta</td>
<td align="center">1987-08-06</td>
</tr>
</tbody></table>
<br><br></div>Muito obrigado a todos,<span><font color="#888888"><br><div><div>-- <br><div>Wagner S. Tassinari<br>Departamento de Matemática<br>Universidade Federal Rural do Rio de Janeiro.<br>BR-465, Km 7 - Seropedica, RJ - Brasil<br>CEP: 23890-000 <br>Skype: wagner.tassinari<br><a href="mailto:wtassinari@gmail.com" target="_blank">wtassinari@gmail.com</a><br><a href="mailto:tassinari@ufrrj.br" target="_blank">tassinari@ufrrj.br</a><br>-------------------------------------------------------<br>"Statistical thinking will one day be as necessary for efficient citizenship as the ability to read and write." (H.G.Wellis)<br></div>
</div></div></font></span></div>
<br></div></div>_______________________________________________<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 forneça código mínimo reproduzível.<br></blockquote></div><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><br clear="all"><div><br></div>-- <br><div class="gmail_signature">Henrique Dallazuanna<br>Curitiba-Paraná-Brasil<br>25° 25' 40" S 49° 16' 22" O</div>
</div>