[R-br] Separar o segundo nome

[Éder Comunello]

Wagner, bom dia!

Segue uma ideia...

### <code r>
names <- c("Antônio João Carneiro", "Antônio Souza Brás Silva",
     "Bento Munhoz Rocha Souza", "Carlos Henrique Omanneve",
     "Damasceno Quiley", "Eustácio Silva Lima", "Fábio Enolair",
     "Gustavo Byroleth")

names2 <- strsplit(names, ' ')

terms <- unlist(lapply(names2, length)); terms
n <- length(terms)
sapply(1:n, function(x) names2[[x]][1]) # Primeiro
sapply(1:n, function(x) names2[[x]][terms[x]]) # Último
sapply(1:n, function(x) paste(names2[[x]][-c(1,terms[x])], collapse=" ")) #
Intermediários
sapply(1:n, function(x) (names2[[x]][-c(1,terms[x])])[1]) # Segundo nome...
### </code>

​
================================================
Éder Comunello
Agronomist (UEM), MSc in Environ. Sciences (UEM)
DSc in Agricultural Systems Engineering (USP/Esalq)
Brazilian Agricultural Research Corporation (Embrapa)
Dourados, MS, Brazil |<O>|
================================================
GEO, -22.2752, -54.8182, 408m
UTC-04:00 / DST: UTC-03:00




Em 15 de maio de 2016 06:55, Wagner Tassinari <wtassinari em gmail.com>
escreveu:

> Olá pessoal, tudo bem ?
>
> Gostaria de um help, estou querendo separar os nomes pelo: primeiro,
> segundo e último nome de uma pessoa.
> Para separar o primeiro e o último, eu utilizo os respectivos comandos:
>
> banco$firstname = sapply(strsplit(banco$nome, ' '), function(x) x[1])
> banco$lastname = sapply(strsplit(banco$nome, ' '), function(x)
> x[length(x)])
>
> Gostaria de ter uma idéia para separar o segundo nome baseado nesses
> comandos,
>
> Obrigado e abs a todos,
> -----
> Wagner S. Tassinari
> Departamento de Matemática
> Universidade Federal Rural do Rio de Janeiro.
> BR-465, Km 7 - Seropedica, RJ - Brasil
> CEP: 23890-000
> Cel: (21) 96488-5982 (WhatsApp)
> Skype: wagner.tassinari
> wtassinari em gmail.com
> ----------------------------------------------------------------------
>
>
> _______________________________________________
> R-br mailing list
> R-br em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160515/cd3ce189/attachment.html>