<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:8pt"><div><span>Obrigado Marcos</span></div><div> </div><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas<br></div><div style="font-size: 8pt; font-family: 'Courier New', courier, monaco, monospace, sans-serif; "><div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "><font size="2" face="Arial"><hr size="1"><b><span style="font-weight:bold;">De:</span></b> Marcos Silva <marcosfs2006@gmail.com><br><b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br<br><b><span style="font-weight: bold;">Enviadas:</span></b> Terça-feira, 26 de Julho de 2011 22:56<br><b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] Separar strings<br></font><br><div id="yiv1101647133">Veja se isso atende:<br><br><br>dados <- strsplit(dados, split="(,| e )")<br>dados2
<- data.frame(Var1 = unlist(lapply(dados, "[", 1)),<br> Var2 = unlist(lapply(dados, "[", 2)),<br>
Var3 = unlist(lapply(dados, "[", 3)),<br> Var4 = unlist(lapply(dados, "[", 4)))<br><br>Não é um procedimento muito geral, já que é necessário saber de antemão a quantidade de colunas a utilizar.<br>
<br>Abs.<br><br><div class="yiv1101647133gmail_quote">Em 26 de julho de 2011 22:20, Benilton Carvalho <span dir="ltr"><<a rel="nofollow" ymailto="mailto:beniltoncarvalho@gmail.com" target="_blank" href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>></span> escreveu:<br><blockquote class="yiv1101647133gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204, 204, 204);padding-left:1ex;">
para o arquivo da lista:<br>
<br>
y <- as.character(x)<br>
inutil <- c('\\, ', ' e ')<br>
y0 <- gsub(inutil[2], ' ', gsub(inutil[1], ' ', y))<br>
tmp <- strsplit(y0, ' ')<br>
n <- max(sapply(tmp, length))<br>
f <- function(x, n){append(x, rep(NA, n-length(x)))}<br>
res <- do.call(rbind, lapply(tmp, f, n=n))<br>
<br>
b<br>
<br>
2011/7/27 Edson Lira <<a rel="nofollow" ymailto="mailto:edinhoestat@yahoo.com.br" target="_blank" href="mailto:edinhoestat@yahoo.com.br">edinhoestat@yahoo.com.br</a>>:<br>
<div><div class="yiv1101647133h5">> Pessoal mandei esta mensagem para o Benilton e compartilho com vocês, tenho<br>
> uma dúvida que ainda não trabalhei, vejam se vocês podem me ajudar. Vejam os<br>
> dados abaixo:<br>
> melhoria<br>
> [1] água<br>
> [2] água e saúde<br>
> [3] água e saúde<br>
> [4] educação e saúde<br>
> [5] tudo<br>
> [6] tudo<br>
> [7] atendimento na prefeitura<br>
> [8] educação e saúde<br>
> [9] educação e saúde<br>
> [10] tudo<br>
> [11] tudo<br>
> [12] emprego<br>
> [13] alimentação, educação e saúde<br>
> [14] saúde, transporte e água<br>
> [15] água e educação<br>
> [16] atendimento na prefeitura e água<br>
> [17] segurança e saúde<br>
> [18] tudo<br>
> [19] tudo<br>
> [20] educação e saúde<br>
> [21] tudo<br>
> [22] tudo<br>
> [23] educação e segurança<br>
> [24] água e saúde<br>
> [25] tudo<br>
> [26] transporte, água, educação e saúde<br>
> [27] saúde e água<br>
> [28] tudo<br>
> [29] saúde<br>
> [30] tudo<br>
> Veja que as respostas para a variável melhoria são do tipo: (água e saúde),<br>
> (transporte,água), etc.<br>
><br>
> Gostaria de separar estas expressões em 2 ou três variáveis, por exemplo:<br>
> var1 var2 var3 var4<br>
> água saúde<br>
> transporte água educação saúde<br>
><br>
> Tem alguma sugestão?<br>
> Edson Lira<br>
> Estatístico<br>
> Manaus-Amazonas<br>
</div></div>> _______________________________________________<br>
> R-br mailing list<br>
> <a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
> <a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
> Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código<br>
> mínimo reproduzível.<br>
><br>
<font color="#888888"><br>
<br>
<br>
--<br>
Successful people ask better questions, and as a result, they get<br>
better answers. (Tony Robbins)<br>
_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</font></blockquote></div><br><br clear="all"><br>-- <br>Marcos F. Silva<br><a rel="nofollow" target="_blank" href="http://sites.google.com/site/marcosfs2006">http://sites.google.com/site/marcosfs2006</a><br>
</div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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><br></div></div></div></body></html>