Tente assim:<div><br></div><div><div>library(gsubfn)</div><div><br></div><div>foo <- function(x, ...) {</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>sprintf(gsub("^(\\w+)\\s+.*\\s+(\\w+$)", "\\1\\2%s", x),</div>

<div>              sapply(strapply(d$NOM_PESSOA, '\\s+(.)'), </div><div>                     function(.x)paste(head(.x, n = -1), collapse = '')))</div><div>}</div><div><br></div><div>sprintf('%s%s%s', foo(d$NOM_PESSOA), d$DTA_NASC_PESSOA, foo(d$NOM_COMPLETO_MAE_PESSOA))</div>

<br><div class="gmail_quote">2012/3/14 Estevam Caixeta <span dir="ltr"><<a href="mailto:estevamcaixeta@gmail.com">estevamcaixeta@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

Boa noite, possuo um banco de dados com 3 variáveis: <br>1- Nome da Pessoa<br>2- Data de nascimento<br>3- Nome completo da mãe<br><div><br></div><div>Uma melhor visão do banco pode ser dada assim:</div><div><br></div><div>



<div><div>                         NOM_PESSOA                                 DTA_NASC_PESSOA           NOM_COMPLETO_MAE_PESSOA</div><div>1      <b>A</b>NTONIO <b>D</b>O <b>N</b>ASCIMENTO VIEIRA                  17081968                       GENESIA <b>M</b>ARIA <b>D</b>O NASCIMENTO</div>



<div>2 ANTONIA<b> M</b>ARGARETE <b>R</b>OCHA <b>D</b>E ARAUJO        05091975                          MARIA <b>D</b>A <b>A</b>SSUNCAO ROCHA</div><div>3          JOAO <b>P</b>EDRO <b>A</b>RAUJO VIEIRA                        06031998                   ANTONIA <b>M</b>ARGARETE <b>R</b>OCHA <b>D</b>E ARAUJO</div>



<div>4            ERICA <b>D</b>E <b>A</b>RAUJO <b>V</b>IEIRA                             03112001                  ANTONIA <b>M</b>ARGARETE <b>R</b>OCHA <b>D</b>E ARAUJO</div><div><br></div></div></div><div>o que eu gostaria de fazer é criar uma quarta variável com a seguinte característica: PrimeiroNomeÚltimoNome<b>IniciaisNomeDoMeio</b>DataNascPrimeiroNomeMaeUltimoNomeMae<b>IniciaisNomeDoMeioMa</b>e para poder identificar cada indivíduo, já que no meu banco real eu possuo muitos homônimos. Para exemplificar, utilizando os nomes acima fornecidos, eu gostaria de criar algo do tipo:</div>



<div><br></div><div>1  ANTONIOVIEIRA<b>DN</b>17081968GENESIANASCIMENTO<b>MD</b></div><div>2  ANTONIAARAUJO<b>MR</b>D05091975MARIAROCHA<b>DA</b></div><div>3 JOAOVIEIRA<b>PA</b>06031998ANTONIAARAUJO<b>MRD</b></div><div>4 ERICAVIEIRA<b>DA</b>03112001ANTONIAARAUJO<b>MRD</b></div>



<div><br></div><div>Desde já agradeço.</div><div><br></div><div>Estevam C.M. Teixeira</div><div><br></div><div>PS: Coloquei a parte relacionada aos nomes do meio para tentar facilitar a visualização e compreensão do que eu gostaria de fazer</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" 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" 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>

Henrique Dallazuanna<br>Curitiba-Paraná-Brasil<br>25° 25' 40" S 49° 16' 22" O<br>
</div>