Fátima,

Com expressões regulares fica mais simples (roubei os mesmos nomes do CMR do Walmes)

nomes <- c("Antonio Teixeira Batista",

           "Suellen Cristina Albuquerque",

           "Paulo Matias dos Santos")

expressao <- '^([^ ]+).* ([^ ]+)$'

PrimeiroNome <- gsub(expressao, '\\1', nomes)

UltimoNome <- gsub(expressao, '\\2', nomes)

(Nomes <- data.frame(completo = nomes, primeiro = PrimeiroNome, ultimo = UltimoNome))

Testa aí e vê se isso resolve.

Em 27 de outubro de 2012 00:01, Alisson Lucrecio <alissonluc@yahoo.com.br> escreveu:

Olá Fátima, vc pode enviar um CRM? que te ajudo.

Att

Alisson Lucrécio da Costa

---

From: Fátima Lima Paula <fatima.lima.paula@gmail.com>
To: r-br@listas.c3sl.ufpr.br

Sent: Friday, October 26, 2012 5:29 PM
Subject: Re: [R-br] Separa primeiro e último nome

Caro Walmes.

Na verdade esqueci de dizer que quero criar colunas no meu data frame com  primeiro nome, nome do meio e último nome para depois usar o RecordLinkage.

Agradeço muito o passo a passo para separar, vou testar.  Mas, como faço para criar automaticamente as colunas respectivas. Será que me fiz entender?

Obrigada.

Fátima 

Em 26 de outubro de 2012 17:15, Walmes Zeviani <walmeszeviani@gmail.com> escreveu:

Tem sim, tudo depende do padrão apresentado. Todos os nomes são compostos por 3 partes? Bem, á pra usar a função strsplit() e quebrar no espaço em branco, o resultado é uma lista. Um probleminha surge com nomes que tem "da", "do", "das", "dos", "de" (da Silva, dos Santos, de Oliveira, do Nascimento, das Flores), mas pode ser revolvido. Veja

nomes <- c("Antonio Teixeira Batista",

           "Suellen Cristina Albuquerque",

           "Paulo Matias dos Santos")

# separa pelo espaço

x1 <- strsplit(nomes, split=" ")

x1

# junta o meio

sapply(x1,

       function(i){

         n <- length(i)

         c(i[1], paste(i[2:(n-1)], collapse=" "), i[n])

       })

À disposição.

Walmes.

==========================================================================
Walmes Marques Zeviani
LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
VoIP: (3361 3600) 1053 1173
e-mail: walmes@ufpr.br
skype: walmeszeviani
twitter: @walmeszeviani

homepage: http://www.leg.ufpr.br/%7Ewalmes

linux user number: 531218
==========================================================================

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.