<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Wagner, bom dia!</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Segue uma ideia...</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">### <code r></div><div class="gmail_default" style=""><div class="gmail_default"><font face="monospace, monospace">names <- c("Antônio João Carneiro", "Antônio Souza Brás Silva",</font></div><div class="gmail_default"><font face="monospace, monospace">     "Bento Munhoz Rocha Souza", "Carlos Henrique Omanneve", </font></div><div class="gmail_default"><font face="monospace, monospace">     "Damasceno Quiley", "Eustácio Silva Lima", "Fábio Enolair", </font></div><div class="gmail_default"><font face="monospace, monospace">     "Gustavo Byroleth")</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">names2 <- strsplit(names, ' ')</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">terms <- unlist(lapply(names2, length)); terms</font></div><div class="gmail_default"><font face="monospace, monospace">n <- length(terms)</font></div><div class="gmail_default"><font face="monospace, monospace">sapply(1:n, function(x) names2[[x]][1]) # Primeiro</font></div><div class="gmail_default"><font face="monospace, monospace">sapply(1:n, function(x) names2[[x]][terms[x]]) # Último</font></div><div class="gmail_default"><font face="monospace, monospace">sapply(1:n, function(x) paste(names2[[x]][-c(1,terms[x])], collapse=" ")) # Intermediários</font></div><div class="gmail_default"><font face="monospace, monospace">sapply(1:n, function(x) (names2[[x]][-c(1,terms[x])])[1]) # Segundo nome...</font></div><div class="gmail_default"><font face="monospace, monospace">### </code></font></div></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><font face="arial, helvetica, sans-serif" style="font-size:small"><div style="font-family:'trebuchet ms',sans-serif;display:inline">​</div></font><font face="arial, helvetica, sans-serif" style="font-size:12.8px"><span style="font-size:small">================================================</span><br>Éder Comunello</font><div style="font-size:12.8px"><span style="font-family:arial,helvetica,sans-serif">Agronomist (UEM), MSc in Environ. Sciences (UEM)</span><font face="arial, helvetica, sans-serif"><br></font></div><div style="font-size:12.8px"><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">DSc in Agricultural Systems Engineering (USP/Esalq)</span><br></div><div><span style="font-size:small">Brazilian Agricultural Research Corporation (</span><font face="arial, helvetica, sans-serif" style="font-size:small">Embrapa)</font></div><div><div><font face="arial, helvetica, sans-serif" style="font-size:small">Dourados, MS, Brazil </font><font face="arial, helvetica, sans-serif" size="2">|<O>|</font></div><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">================================================</span><br></div></div></div><div style="font-size:small"><font face="arial, helvetica, sans-serif">GEO, </font>-22.2752, -54.8182, 408m<span style="font-family:arial,helvetica,sans-serif"><br></span></div><div style="font-size:12.8px"><span style="font-size:small;font-family:arial,helvetica,sans-serif">UTC-04:00 / DST: UTC-03:00</span></div><div><div><div><br></div><div><br></div></div><div style="font-size:small"><br></div></div></div></div></div></div></div></div></div></div></div>
<br><div class="gmail_quote">Em 15 de maio de 2016 06:55, Wagner Tassinari <span dir="ltr"><<a href="mailto:wtassinari@gmail.com" target="_blank">wtassinari@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div>Olá pessoal, tudo bem ?<br><br></div>Gostaria de um help, estou querendo separar os nomes pelo: primeiro, segundo e último nome de uma pessoa.<br></div>Para separar o primeiro e o último, eu utilizo os respectivos comandos:<br><div><div><div><br>banco$firstname = sapply(strsplit(banco$nome, ' '), function(x) x[1])<br>banco$lastname = sapply(strsplit(banco$nome, ' '), function(x) x[length(x)])<br><br></div><div>Gostaria de ter uma idéia para separar o segundo nome baseado nesses comandos,<br><br></div><div>Obrigado e abs a todos,<br clear="all"></div><div><div><div><div dir="ltr"><div><div dir="ltr"><div>-----<br>Wagner S. Tassinari<br>Departamento de Matemática<br>Universidade Federal Rural do Rio de Janeiro.<br>BR-465, Km 7 - Seropedica, RJ - Brasil<br>CEP: 23890-000 <br>Cel: (21) 96488-5982 (WhatsApp)<br>Skype: wagner.tassinari<br><a href="mailto:wtassinari@gmail.com" target="_blank">wtassinari@gmail.com</a><br><span>----------------------------------------------------------------------</span><br><br></div></div></div></div></div></div>
</div></div></div></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" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>