<html><head></head><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:16px">Valeu Fernando, outra boa sugestão a ser testada<br><div id="yui_3_16_0_1_1517584817596_11412"><span></span></div><div id="yui_3_16_0_1_1517584817596_11414"> [ ]'s<br></div><div class="signature">Prof. Edson Lira, Me <br>Estatístico<br>Manaus-Amazonas</div> <div class="qtdSeparateBR"><br><br></div><div style="display: block;" class="yahoo_quoted"> <div style="font-family: times new roman, new york, times, serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"><font face="Arial" size="2"> Em Quarta-feira, 31 de Janeiro de 2018 15:44, Fernando Souza <nandodesouza@gmail.com> escreveu:<br></font></div> <br><br> <div class="y_msg_container"><div id="yiv1395019394"><div><div dir="ltr">A função revalue do pacote plyr é ótima para isso<br clear="none"><br clear="none">dados <- expand.grid(Resposta=c("otimo","bom","regular","ruim","NaoUtilizou","pessimo"),Questao=1:10)<br clear="none">head(dados)<br clear="none">library(plyr)<br clear="none">dados$novaclass <- revalue(dados$Resposta, c("otimo"="positiva","bom" = "positiva","regular"="","NaoUtilizou" = "","ruim" ="negativa", "pessimo" = "negativa"))<br clear="none"></div><div class="yiv1395019394gmail_extra"><br clear="none"><div class="yiv1395019394gmail_quote">Em 31 de janeiro de 2018 17:54, Edson Lira via R-br <span dir="ltr"><<a rel="nofollow" shape="rect" 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>></span> escreveu:<br clear="none"><blockquote class="yiv1395019394gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div class="yiv1395019394yqt0953421220" id="yiv1395019394yqt43606"><div><div style="font-family:times new roman, new york, times, serif;font-size:16px;"><div>Obrigado Thiago e Leonard, vou testar a sugestão de vcs.<span class="yiv1395019394"><br clear="none"></span><div><br clear="none"></div><div><br clear="none"></div><div><br clear="none"></div><div>[ ]'s.<br clear="none"></div><div class="yiv1395019394m_-6125598535946890457ydpd5328fd9signature">Prof. Edson Lira, Me <br clear="none">Estatístico<br clear="none">Manaus-Amazonas</div></div>
<div><br clear="none"></div><div><br clear="none"></div>
<div class="yiv1395019394m_-6125598535946890457yahoo_quoted" id="yiv1395019394m_-6125598535946890457yahoo_quoted_7751864053">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;"><div><div class="yiv1395019394h5">
<div>
Em quarta-feira, 31 de janeiro de 2018 13:12:19 GMT-4, Leonard Assis via R-br <<a rel="nofollow" shape="rect" 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>> escreveu:
</div>
<div><br clear="none"></div>
<div><br clear="none"></div>
</div></div><div><div id="yiv1395019394m_-6125598535946890457yiv0349722817"><div><div><div><div class="yiv1395019394h5"><div>Eu, particularmente, usaria o recode, mas jogaria em uma outra variável</div><div><br clear="none"></div></div></div><div>Leonard<br clear="none"><div class="yiv1395019394m_-6125598535946890457yiv0349722817gmail_extra"><br clear="none"><div class="yiv1395019394m_-6125598535946890457yiv0349722817gmail_quote"><div><div class="yiv1395019394h5">Em 31 de jan de 2018 1:48 PM, "Tiago Fragoso via R-br" <<a rel="nofollow" shape="rect" 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>> escreveu:<br clear="none"></div></div><blockquote class="yiv1395019394m_-6125598535946890457yiv0349722817quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div class="yiv1395019394h5">Olá<br clear="none">
<br clear="none">
Você pode usar a função 'mapvalues' do pacote plyr também. No seu caso, ficaria<br clear="none">
<br clear="none">
ads <- plyr::mapvalues(ads, from =<br clear="none">
c('péssimo','ruim','otimo',' bom','regular'), to =<br clear="none">
c('Negativa','Negativa',' Positiva','Positiva',''))<br clear="none">
</div></div><div class="yiv1395019394m_-6125598535946890457yiv0349722817elided-text"><div><div class="yiv1395019394h5"><br clear="none">
2018-01-31 13:05 GMT-02:00 Edson Lira via R-br <<a rel="nofollow" shape="rect" 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 clear="none">
> Já resolvi, com a rotina abaixo.<br clear="none">
><br clear="none">
> ads <- apply(ads, 2, function(x) {x <- recode(x,"'pessimo'='Negativa' ;<br clear="none">
> 'ruim'='Negativa';<br clear="none">
> 'otimo'='Positiva';'bom'=' Positiva';'nao<br clear="none">
> utilizou o servico'='';'regular'=''"); x})<br clear="none">
><br clear="none">
> Se alguém tiver uma solução mais elegante, eu gostaria de saber.<br clear="none">
><br clear="none">
> Bom dia a todos!<br clear="none">
><br clear="none">
> [ ]'s.<br clear="none">
> Prof. Edson Lira, Me<br clear="none">
> Estatístico<br clear="none">
> Manaus-Amazonas<br clear="none">
><br clear="none">
><br clear="none">
> Em Quarta-feira, 31 de Janeiro de 2018 9:45, Edson Lira via R-br<br clear="none">
> <<a rel="nofollow" shape="rect" 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>> escreveu:<br clear="none">
><br clear="none">
><br clear="none">
> Bom dia caros amigos, tenho um pequeno problema que ainda não consegui<br clear="none">
> encontrar a solução.<br clear="none">
><br clear="none">
> É o seguinte: Estou aplicando um questionário para avaliar a satisfação do<br clear="none">
> cliente em um hospital público.<br clear="none">
><br clear="none">
> Na avaliação dos clientes estou usando uma escala de likert com as respostas<br clear="none">
> para algumas questões.<br clear="none">
><br clear="none">
> ótimo, bom, regular, ruim, péssimo e não utilizou o serviço<br clear="none">
><br clear="none">
> Gostaria de fazer uma mudança nessas respostas usando uma rotina do R.<br clear="none">
><br clear="none">
> Gostaria de mudar da seguinte forma para todo o banco de uma única vez.<br clear="none">
><br clear="none">
> otimo e bom receberia o label "positiva" regular e não utilizou o serviço o<br clear="none">
> label " "<br clear="none">
> e ruim e péssimo receberia o label "negativa".<br clear="none">
><br clear="none">
> Alguém tem alguma sugestão?<br clear="none">
><br clear="none">
> Bom diae muito obrigado!!!<br clear="none">
> Prof. Edson Lira, Me<br clear="none">
> Estatístico<br clear="none">
> Manaus-Amazonas<br clear="none">
> ______________________________ _________________<br clear="none">
> R-br mailing list<br clear="none">
> <a rel="nofollow" shape="rect" 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 clear="none">
> <a rel="nofollow" shape="rect" 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 clear="none"></div></div>
> Leia o guia de postagem (<a rel="nofollow" shape="rect" 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<span class="yiv1395019394"><br clear="none">
> m�nimo reproduz�vel.<br clear="none">
><br clear="none">
><br clear="none">
> ______________________________ _________________<br clear="none"></span><span class="yiv1395019394">
> R-br mailing list<br clear="none">
> <a rel="nofollow" shape="rect" 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 clear="none">
> <a rel="nofollow" shape="rect" 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 clear="none">
</span></div>> Leia o guia de postagem (<a rel="nofollow" shape="rect" 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 clear="none">
> mínimo reproduzível.<div class="yiv1395019394m_-6125598535946890457yiv0349722817yqt2410332976" id="yiv1395019394m_-6125598535946890457yiv0349722817yqtfd66339"><br clear="none">
</div><div class="yiv1395019394m_-6125598535946890457yiv0349722817quoted-text">______________________________ _________________<span class="yiv1395019394"><br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" 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 clear="none">
<a rel="nofollow" shape="rect" 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 clear="none">
</span></div>Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br- guia</a>) e fornea cdigo mnimo reproduzvel.</blockquote></div><div class="yiv1395019394m_-6125598535946890457yiv0349722817yqt2410332976" id="yiv1395019394m_-6125598535946890457yiv0349722817yqtfd95154"><br clear="none"></div></div></div></div></div></div><span class="yiv1395019394"></span><div class="yiv1395019394m_-6125598535946890457yqt2410332976" id="yiv1395019394m_-6125598535946890457yqtfd75966">______________________________ _________________<br clear="none">R-br mailing list<br clear="none"><a rel="nofollow" shape="rect" 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 clear="none"><a rel="nofollow" shape="rect" 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 clear="none">Leia o guia de postagem (<a rel="nofollow" shape="rect" 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.</div></div>
</div>
</div></div></div></div><br clear="none">______________________________ _________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" 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 clear="none">
<a rel="nofollow" shape="rect" 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 clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" 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 clear="none"></blockquote></div><br clear="none"><br clear="all"><br clear="none">-- <br clear="none"><div class="yiv1395019394gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span>=========================================<br clear="none">
Fernando Souza<br clear="none">
Zootecnista, DSc. Produção e Alimentação Animal<br clear="none">
Celular: (31)99796-8781 (Vivo)<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:e-mail%3Anandodesouza@gmail.com" target="_blank" href="mailto:e-mail%3Anandodesouza@gmail.com">E-mail:nandodesouza@gmail.com</a><br clear="none">
Lattes: <a rel="nofollow" shape="rect" target="_blank" href="http://lattes.cnpq.br/6519538815038307">http://lattes.cnpq.br/6519538815038307</a><br clear="none">
Blog: <a rel="nofollow" shape="rect" target="_blank" href="https://producaoanimalcomr.wordpress.com/">https://producaoanimalcomr.wordpress.com/</a><br clear="none">
==========================================</span></div></div></div></div></div></div></div></div></div></div>
</div></div></div><br><br></div> </div> </div> </div></div></body></html>