Aqui uma solução:<div><br></div><div>sapply(strsplit(as.character(dados$pesc.emb),&#39; &#39;),function(x) c(x[1],paste(x[-1],collapse=&#39; &#39;)))</div><div><br></div><div><br></div><div>[]&#39;s<br><br><div class="gmail_quote">
2011/10/17 Rodrigo Sant&#39;Ana <span dir="ltr">&lt;<a href="mailto:rodrigo.gringo@gmail.com">rodrigo.gringo@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Caros Companheiros da R-BR,<br><br>  estou com um problema, que provavelmente, seja muito simples de resolver. Mas confesso, já quebrei a cabeça para resolver e num consegui chegar ao resultado que desejo. Abaixo, tento replicar meu problema para que vocês possam me ajudar! Muito obrigado pela atenção de todos!<br>


<br># Eis uma réplica simplificada da base de dados!<br>dados &lt;- data.frame(municipio = c(&quot;A&quot;, &quot;B&quot;, &quot;C&quot;, &quot;D&quot;, &quot;E&quot;), pesc.emb = c(&quot;PESCADOR JOAO&quot;,&quot;EMBARCACAO ZE&quot;,&quot;PESCADOR FELIPE&quot;,&quot;EMBARCACAO AMARGURA II&quot;,&quot;EMBARCACAO STAR&quot;))<br>


<br>dados<br>  municipio               pesc.emb<br>1         A          PESCADOR JOAO<br>2         B          EMBARCACAO ZE<br>3         C        PESCADOR FELIPE<br>4         D EMBARCACAO AMARGURA II<br>5         E         EMBACACAO STAR<br>


<br># Preciso criar uma coluna classificando a informação da linha em &quot;PESCADOR&quot; ou &quot;EMBARCACAO&quot;, ou seja, preciso extrair a string &quot;PESCADOR&quot; ou  &quot;EMBARCACAO&quot; da coluna pesc.emb. Já tentei utilizar todas as funções do pacote stringr, porém não obtive exito, pois preciso ambos na mesma coluna.<br>


<br>library(stringr)<br><br>dados$classify &lt;- str_extract(dados$pesc.emb, &quot;PESCADOR&quot;)<br>dados$classify2 &lt;- str_extract(dados$pesc.emb, &quot;EMBARCACAO&quot;)<br>dados<br>  municipio               pesc.emb                     classify             classify2<br>


1         A          PESCADOR JOAO           PESCADOR           &lt;NA&gt;<br>2         B          EMBARCACAO ZE                &lt;NA&gt;          EMBARCACAO<br>3         C        PESCADOR FELIPE          PESCADOR          &lt;NA&gt;<br>


4         D EMBARCACAO AMARGURA II       &lt;NA&gt;          EMBARCACAO<br>5         E        EMBARCACAO STAR             &lt;NA&gt;          EMBARCACAO<br><br>sei que pode parecer simples, mas estou enfrentando dificuldades em solucionar este problema.<br>


<br>Fico super agradecido pela atenção de todos,<br><br>abs<br><br><br><br><br><br>  <br clear="all">_______________<br><font color="#888888">Rodrigo Sant&#39;Ana<br>Oceanógrafo<br>
</font><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></div>