<div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px"><div dir="ltr" id="yui_3_16_0_1_1417572470571_74896"><span>Prezado Alan,</span></div><div dir="ltr" id="yui_3_16_0_1_1417572470571_75207"><span><br></span></div><div dir="ltr" id="yui_3_16_0_1_1417572470571_75205"><span>O que foi isso? Mágica?</span></div><div dir="ltr" id="yui_3_16_0_1_1417572470571_75203"><span><br></span></div><div dir="ltr" id="yui_3_16_0_1_1417572470571_74941">Única alteração que fiz foi trocar o G pelo Q. Inclusive saltou as primeiras 3 variáveis que eram sexo, idade e tempo que não deveriam ser alteradas pela função.</div><div dir="ltr" id="yui_3_16_0_1_1417572470571_74941"><br></div><div dir="ltr" id="yui_3_16_0_1_1417572470571_74941">-----</div><div class="" id="yui_3_16_0_1_1417572470571_73645"><div class="" id="yui_3_16_0_1_1417572470571_73645"><font id="yui_3_16_0_1_1417572470571_73644" class="" size="3">x <- ... # Seu data.frame aqui</font></div><div class="" id="yui_3_16_0_1_1417572470571_73647"><font id="yui_3_16_0_1_1417572470571_73649" class="" style="" size="3">vars <- sapply(c(1:63), function(x) { paste('Q', x, sep = "") })</font></div><div class="" id="yui_3_16_0_1_1417572470571_74388"><font class="" style="" id="yui_3_16_0_1_1417572470571_75767" size="3">new_labels <- c("Discordo totalmente", "Discordo", "Neutro", "Concordo", "Concordo totalmente")</font></div><div class="" id="yui_3_16_0_1_1417572470571_74382"><font class="" style="" size="3"><br clear="none" class="" style=""></font></div><div class="" id="yui_3_16_0_1_1417572470571_73652"><font id="yui_3_16_0_1_1417572470571_73651" class="" style="" size="3">for (var in vars) {</font></div><div class="" id="yui_3_16_0_1_1417572470571_73666"><font id="yui_3_16_0_1_1417572470571_73665" class="" style="" size="3"> x[[var]] <- factor(x[[var]], label = new_labels, levels = 1:5)</font></div><div class="" id="yui_3_16_0_1_1417572470571_74384"><font class="" size="3">}</font></div><div class="" id="yui_3_16_0_1_1417572470571_74384"><font class="" size="3">----</font></div><div class="" id="yui_3_16_0_1_1417572470571_74384" dir="ltr"><font class="" size="3" id="yui_3_16_0_1_1417572470571_76996">Confesso que fiquei atordoado, não entendi nada, mas funcionou mesmo!</font></div><div class="" id="yui_3_16_0_1_1417572470571_74384" dir="ltr"><font class="" size="3" id="yui_3_16_0_1_1417572470571_77004">Pode explicar?</font></div><div class="" id="yui_3_16_0_1_1417572470571_74384" dir="ltr"><font class="" size="3"><br></font></div><div class="" id="yui_3_16_0_1_1417572470571_74384" dir="ltr"><font class="" size="3">Já salvei dos dados em .Rdata. </font></div><div class="" id="yui_3_16_0_1_1417572470571_74384" dir="ltr"><font class="" size="3"><br></font></div><div class="" id="yui_3_16_0_1_1417572470571_74384" dir="ltr"><font class="" size="3" id="yui_3_16_0_1_1417572470571_77002">Muitíssimo obrigado mesmo.</font></div><div class="" id="yui_3_16_0_1_1417572470571_74384" dir="ltr"><font class="" size="3"><br></font></div><div class="" id="yui_3_16_0_1_1417572470571_74384" dir="ltr"><font class="" size="3">Alessandro</font></div><div class="" id="yui_3_16_0_1_1417572470571_74384" dir="ltr"><br></div></div> <div class="qtdSeparateBR" id="yui_3_16_0_1_1417572470571_84544"><br><br></div><div class="yahoo_quoted" style="display: block;" id="yui_3_16_0_1_1417572470571_84549"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;" id="yui_3_16_0_1_1417572470571_84548"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;" id="yui_3_16_0_1_1417572470571_84547"> <div dir="ltr" id="yui_3_16_0_1_1417572470571_84546"> <font size="2" face="Arial"> Em Quarta-feira, 3 de Dezembro de 2014 0:32, Alan Fachini <alfakini@gmail.com> escreveu:<br> </font> </div> <br><br> <div class="y_msg_container" id="yui_3_16_0_1_1417572470571_84555"><div id="yiv2316290073"><div id="yui_3_16_0_1_1417572470571_84554"><div dir="ltr" id="yui_3_16_0_1_1417572470571_84553"><div class="yiv2316290073gmail_default" style="font-family:arial, helvetica, sans-serif;" id="yui_3_16_0_1_1417572470571_84552">Oi Alessandro, deve ter uma forma mais elegante de se fazer isso no R, mas você pode usar isso aqui para solucionar seu problema rapidamente:</div><div class="yiv2316290073gmail_default" style="font-family:arial, helvetica, sans-serif;"><br clear="none"></div><div class="yiv2316290073gmail_default"><font face="monospace">x <- ... # Seu data.frame aqui</font></div><div class="yiv2316290073gmail_default"><font face="monospace">vars <- sapply(c(1:63), function(x) { paste('G', x, sep = "") })</font></div><div class="yiv2316290073gmail_default"><font face="monospace">new_labels <- c("Discordo totalmente", "Discordo", "Neutro", "Concordo", "Concordo totalmente")</font></div><div class="yiv2316290073gmail_default"><font face="monospace"><br clear="none"></font></div><div class="yiv2316290073gmail_default" style=""><font face="monospace">for (var in vars) {</font></div><div class="yiv2316290073gmail_default" style=""><font face="monospace"> x[[var]] <- factor(x[[var]], label = new_labels, levels = 1:5)</font></div><div class="yiv2316290073gmail_default" style=""><font face="monospace">}</font></div><div class="yiv2316290073gmail_default" style=""><span style="font-family:arial, helvetica, sans-serif;"><br clear="none"></span></div><div class="yiv2316290073gmail_default" style=""><span style="font-family:arial, helvetica, sans-serif;">Abs,</span></div></div><div class="yiv2316290073gmail_extra"><br clear="all"><div><div class="yiv2316290073gmail_signature">alf.<br clear="none"></div></div>
<br clear="none"><div class="yiv2316290073gmail_quote">2014-12-03 0:53 GMT-02:00 Alessandro Corrêa <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:alessand22@yahoo.com.br" target="_blank" href="mailto:alessand22@yahoo.com.br">alessand22@yahoo.com.br</a>></span>:<br clear="none"><blockquote class="yiv2316290073gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div class="yiv2316290073yqt5053722844" id="yiv2316290073yqt02194"><div style="color:#000;background-color:#fff;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px;"><div>Prezados colegas,</div><div><br clear="none"></div><div>Estou com um banco de dados (x) no seguinte formato<div><br clear="none"></div><div>sexo idade tempo Q1 Q2 Q3 Q4 Q5 Q6 ...Q63</div><div> 1 44 24.0 4 3 3 3 2 4</div><div><div> 0 62 28.0 1 5 2 2 3 1</div><div> 1 52 6.0 4 5 4 2 5 4</div><div> 0 51 27.0 4 4 4 3 3 3</div><div> 1 32 3.5 1 3 2 1 4 3</div><div> 0 33 5.0 1 5 1 1 1 1</div></div><div><br clear="none"></div><div>As variáveis de Q1 a Q6 são variáveis na escala de Likert</div><div><div style="font-family:arial, sans-serif;"><font size="3">1 = Discordo totalmente</font></div><div style="font-family:arial, sans-serif;"><font size="3">2 = Discordo<br clear="none"></font></div><div style="font-family:arial, sans-serif;"><font size="3">3 = Neutro<br clear="none"></font></div><div style="font-family:arial, sans-serif;"><font size="3">4 = Concordo<br clear="none"></font></div><div style="font-family:arial, sans-serif;"><font size="3">5 = Concordo totalmente</font></div></div><div style="font-family:arial, sans-serif;"><font size="3"><br clear="none"></font></div><div style="font-family:arial, sans-serif;"><font size="3">Gostaria de saber se é possível criar uma rotina ou se há uma função capaz de</font></div><div style="font-family:arial, sans-serif;"><font size="3">formatar as variáveis de Q1 a Q63 em fatores com as etiquetas referentes a cada nível.</font></div><div style="font-family:arial, sans-serif;"><font size="3"><br clear="none"></font></div><div style="font-family:arial, sans-serif;"><font size="3">Se eu fosse fazer uma a uma, repetiria 63 vezes o seguinte comando para cada variável:</font></div><div style="font-family:arial, sans-serif;"><font size="3"><br clear="none"></font></div><div><div style="color:rgb(34,34,34);font-family:arial;"><font size="3"><font face="arial, sans-serif">x$Q1<-factor(x$Q1, label=c(</font><span style="font-family:arial, sans-serif;">"Discordo totalmente", "Discordo", "Neutro", "Concordo", "Concordo totalmente"</span><font face="arial, sans-serif">), levels=1:5)</font></font></div><div style="color:rgb(34,34,34);font-family:arial;"><font face="arial, sans-serif" size="3"><br clear="none"></font></div><div style="color:rgb(34,34,34);font-family:arial;"><font face="arial, sans-serif" size="3">Acredito que haja uma maneira mais prática.</font></div><div style="color:rgb(34,34,34);font-family:arial;"><font face="arial, sans-serif" size="3"><br clear="none"></font></div><div style="color:rgb(34,34,34);font-family:arial;"><font face="arial, sans-serif" size="3">Obrigado desde já.</font></div><span class="yiv2316290073HOEnZb"><font color="#888888"></font></span><div style="color:rgb(34,34,34);font-family:arial;"><font face="arial, sans-serif" size="3"><br clear="none"></font></div><div style="color:rgb(34,34,34);font-family:arial;"><font face="arial, sans-serif" size="3"><br clear="none"></font></div><div style="color:rgb(34,34,34);font-family:arial;"><font face="arial, sans-serif" size="3">Alessandro</font></div></div></div><div><font face="arial, sans-serif"><br clear="none"></font></div><div><br clear="none"></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"></div></div></div><br><br></div> </div> </div> </div> </div>