Augusto,<div><br></div><div>eu nao lembro q solucao eu propus inicialmente... mas, hoje, faria algo como o seuinte:</div><div><br></div><div><div>nomes &lt;- gsub(&#39;^([[:alpha:]]{1})[[:alpha:]]+[[:blank:]]([[:alpha:]]{2})[[:alpha:]]+$&#39;, &#39;\\1\\2&#39;, nomes.lin)</div>

<div>f &lt;- function(x){</div><div>    tmp &lt;- new.env()</div><div>    tmp$x &lt;- x</div><div>    dups &lt;- x[duplicated(x)]</div><div>    sapply(dups, function(v){</div><div>        i &lt;- which(tmp$x == v)</div><div>

        tmp$x[i] &lt;- paste(v, 1:length(i), sep=&#39;&#39;)</div><div>    })</div><div>    tmp$x</div><div>}</div><div>nomesClean &lt;- f(nomes)</div></div><div><br></div>