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 <- gsub('^([[:alpha:]]{1})[[:alpha:]]+[[:blank:]]([[:alpha:]]{2})[[:alpha:]]+$', '\\1\\2', nomes.lin)</div>

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

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