Valeu Fernando, outra boa sugestão a ser testada [ ]'s Prof. Edson Lira, Me Estatístico Manaus-Amazonas Em Quarta-feira, 31 de Janeiro de 2018 15:44, Fernando Souza <nandodesouza@gmail.com> escreveu: A função revalue do pacote plyr é ótima para isso dados <- expand.grid(Resposta=c("otimo","bom","regular","ruim","NaoUtilizou","pessimo"),Questao=1:10) head(dados) library(plyr) dados$novaclass <- revalue(dados$Resposta, c("otimo"="positiva","bom" = "positiva","regular"="","NaoUtilizou" = "","ruim" ="negativa", "pessimo" = "negativa")) Em 31 de janeiro de 2018 17:54, Edson Lira via R-br <r-br@listas.c3sl.ufpr.br> escreveu: Obrigado Thiago e Leonard, vou testar a sugestão de vcs. [ ]'s. Prof. Edson Lira, Me Estatístico Manaus-Amazonas Em quarta-feira, 31 de janeiro de 2018 13:12:19 GMT-4, Leonard Assis via R-br <r-br@listas.c3sl.ufpr.br> escreveu: Eu, particularmente, usaria o recode, mas jogaria em uma outra variável Leonard Em 31 de jan de 2018 1:48 PM, "Tiago Fragoso via R-br" <r-br@listas.c3sl.ufpr.br> escreveu: Olá Você pode usar a função 'mapvalues' do pacote plyr também. No seu caso, ficaria ads <- plyr::mapvalues(ads, from = c('péssimo','ruim','otimo',' bom','regular'), to = c('Negativa','Negativa',' Positiva','Positiva','')) 2018-01-31 13:05 GMT-02:00 Edson Lira via R-br <r-br@listas.c3sl.ufpr.br>:
Já resolvi, com a rotina abaixo.
ads <- apply(ads, 2, function(x) {x <- recode(x,"'pessimo'='Negativa' ; 'ruim'='Negativa'; 'otimo'='Positiva';'bom'=' Positiva';'nao utilizou o servico'='';'regular'=''"); x})
Se alguém tiver uma solução mais elegante, eu gostaria de saber.
Bom dia a todos!
[ ]'s. Prof. Edson Lira, Me Estatístico Manaus-Amazonas
Em Quarta-feira, 31 de Janeiro de 2018 9:45, Edson Lira via R-br <r-br@listas.c3sl.ufpr.br> escreveu:
Bom dia caros amigos, tenho um pequeno problema que ainda não consegui encontrar a solução.
É o seguinte: Estou aplicando um questionário para avaliar a satisfação do cliente em um hospital público.
Na avaliação dos clientes estou usando uma escala de likert com as respostas para algumas questões.
ótimo, bom, regular, ruim, péssimo e não utilizou o serviço
Gostaria de fazer uma mudança nessas respostas usando uma rotina do R.
Gostaria de mudar da seguinte forma para todo o banco de uma única vez.
otimo e bom receberia o label "positiva" regular e não utilizou o serviço o label " " e ruim e péssimo receberia o label "negativa".
Alguém tem alguma sugestão?
Bom diae muito obrigado!!! Prof. Edson Lira, Me 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.
______________________________ _________________ 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.
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 fornea cdigo mnimo reproduzvel. ______________________________ _________________ 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. ______________________________ _________________ 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. -- ========================================= Fernando Souza Zootecnista, DSc. Produção e Alimentação Animal Celular: (31)99796-8781 (Vivo) E-mail:nandodesouza@gmail.com Lattes: http://lattes.cnpq.br/6519538815038307 Blog: https://producaoanimalcomr.wordpress.com/ ==========================================