<p dir="ltr">Corretor burro</p>
<p dir="ltr">gsub ('^(.*) (.*)$', '\\2, \\1', x)</p>
<div class="gmail_quote">On 13 Dec 2012 16:56, "Benilton Carvalho" <<a href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>> wrote:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<p dir="ltr">gsub ('^(.*) (.*) $', '\\2, \\1', x) </p>
<div class="gmail_quote">On 13 Dec 2012 16:50, "Augusto Ribas" <<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>> wrote:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

#dados<br>
x <- c("Eder David Borges da Silva","João Silva","Pedro Augusto Paulo")<br>
#quebrando os nomes, resultado numa lista<br>
lista<-strsplit(x," ")<br>
<br>
#tamanho da lista<br>
length(lista)<br>
#tamanho do nome<br>
length(lista[[1]])<br>
<br>
#tres paste, dois dentro de um, colocando o nome com , dai o resto dos<br>
nomes juntos<br>
paste(paste(lista[[1]][length(lista[[1]])],",",collapse="",sep=""),paste(lista[[1]][1:(length(lista[[1]])-1)],collapse="<br>
"),sep=" ")<br>
<br>
#crie um vetor pra guardar os nomes<br>
saida<-vector()<br>
<br>
#um loop para repetir a atividade acima<br>
for(i in 1:length(lista)) {<br>
saida[i]<-paste(paste(lista[[i]][length(lista[[i]])],",",collapse="",sep=""),paste(lista[[i]][1:(length(lista[[i]])-1)],collapse="<br>
"),sep=" ")<br>
}<br>
<br>
#os nomes reorganizados<br>
saida<br>
<br>
Ai, pra ir quebrando o galho enquanto os mestres não vem hehe.<br>
Eu usei tres vezes o comando paste pra conseguir o resultado desejado,<br>
mas deve ter jeito de isso ser mais simples.<br>
Se for muito nome é melhor trocar o loop de for para um apply, so<br>
transformar isso numa função.<br>
<br>
Espero que ajude<br>
<br>
Em 13 de dezembro de 2012 11:58, Eder David Borges da Silva<br>
<<a href="mailto:eder@leg.ufpr.br" target="_blank">eder@leg.ufpr.br</a>> escreveu:<br>
> Pessoal, peço ajuda aos mestres em manipulação de String... eu ainda não me<br>
> acertei com isso.<br>
> A duvida é simples:<br>
> x <- c("Eder David Borges da Silva","João Silva","Pedro Augusto Paulo")<br>
> gostaria de transformar estes nomes em formato "Americano" ficando:<br>
> Silva, Eder David Borges da<br>
> Silva, João<br>
> Paulo, Pedro Augusto.<br>
> Em síntese pegar oque esta depois do ultimo espaço, e colar com tudo que<br>
> esta antes dele, separando isso por uma virgula.<br>
> Já tentei algumas coisa, mas sempre me confundo nas expressões regulares.<br>
> Alguma dica?<br>
> Obrigado<br>
><br>
> _______________________________________________<br>
> R-br mailing list<br>
> <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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<br>
> mínimo reproduzível.<br>
<br>
<br>
<br>
--<br>
Grato<br>
Augusto C. A. Ribas<br>
<br>
Site Pessoal: <a href="http://recologia.wordpress.com/" target="_blank">http://recologia.wordpress.com/</a><br>
Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
</blockquote></div>