Veja se isso atende:
dados <- strsplit(dados, split="(,| e )")
dados2 <- data.frame(Var1 = unlist(lapply(dados, "[", 1)),
Var2 = unlist(lapply(dados, "[", 2)),
Var3 = unlist(lapply(dados, "[", 3)),
Var4 = unlist(lapply(dados, "[", 4)))
Não é um procedimento muito geral, já que é necessário saber de antemão a quantidade de colunas a utilizar.
Abs.
para o arquivo da lista:
y <- as.character(x)
inutil <- c('\\, ', ' e ')
y0 <- gsub(inutil[2], ' ', gsub(inutil[1], ' ', y))
tmp <- strsplit(y0, ' ')
n <- max(sapply(tmp, length))
f <- function(x, n){append(x, rep(NA, n-length(x)))}
res <- do.call(rbind, lapply(tmp, f, n=n))
b
2011/7/27 Edson Lira <edinhoestat@yahoo.com.br>:
> _______________________________________________> Pessoal mandei esta mensagem para o Benilton e compartilho com vocês, tenho
> uma dúvida que ainda não trabalhei, vejam se vocês podem me ajudar. Vejam os
> dados abaixo:
> melhoria
> [1] água
> [2] água e saúde
> [3] água e saúde
> [4] educação e saúde
> [5] tudo
> [6] tudo
> [7] atendimento na prefeitura
> [8] educação e saúde
> [9] educação e saúde
> [10] tudo
> [11] tudo
> [12] emprego
> [13] alimentação, educação e saúde
> [14] saúde, transporte e água
> [15] água e educação
> [16] atendimento na prefeitura e água
> [17] segurança e saúde
> [18] tudo
> [19] tudo
> [20] educação e saúde
> [21] tudo
> [22] tudo
> [23] educação e segurança
> [24] água e saúde
> [25] tudo
> [26] transporte, água, educação e saúde
> [27] saúde e água
> [28] tudo
> [29] saúde
> [30] tudo
> Veja que as respostas para a variável melhoria são do tipo: (água e saúde),
> (transporte,água), etc.
>
> Gostaria de separar estas expressões em 2 ou três variáveis, por exemplo:
> var1 var2 var3 var4
> água saúde
> transporte água educação saúde
>
> Tem alguma sugestão?
> Edson Lira
> Estatístico
> Manaus-Amazonas
> R-br mailing list
> R-br@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.
>
--
Successful people ask better questions, and as a result, they get
better answers. (Tony Robbins)
_______________________________________________
R-br mailing list
R-br@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.