Vc pode utilizar o seguinte comando<br>>nomedodataframe$nomedanovavariável[variávelantiga == "A"]<- 1<br>>nomedodataframe$nomedanovavariável[variávelantiga == "B"]<- 2<br><br>suponha que a variável antiga seja "sexo" e a nova variável seja "sexo1" e o seu data frame seja "avaliação" então:<br>
avaliação$sexo1[escore == "A"]<- 1<br>avaliação$sexo1[escore == "B"]<- 2<br><br>valeu<br><br><div class="gmail_quote">Em 1 de março de 2012 17:22, Augusto Ribas <span dir="ltr"><<a href="mailto:ribas.aca@gmail.com">ribas.aca@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Ola pessoal.<br>Estou com uma duvida simples aqui.<br>Eu estava analisando dados aqui e vi um grafico estranho, dai vi que os dados  estavam digitados errados.<br>
Mas o erro é simples. <br>Existem 2 fatores, e os niveis de um fator estão trocados, mas somente dentro de um nivel do segundo fator, o resto esta tudo correto.<br>
Basicamente existe um vetor e eu tenho que trocar A por B e vive versa.<br>Ai eu consegui arrumar imendando um monte de comando mas ficou uma coisa enorme e especifica para algo que parece tão simples.<br>ai pensei se alguém tem uma solução mais economica e geral que a que eu fiz?<br>

<br>###<br>#Exemplo de dados<br>###<br>resposta<-c(c(rnorm(10,5),rnorm(10,8)),c(rnorm(10,8),rnorm(10,5)))<br>fator1<-c(rep(c("A","B"),each=10),rep(c("A","B"),each=10))<br>fator2<-rep(c("1","2"),each=20)<br>

dados<-data.frame(resposta,fator1,fator2)<br><br>###<br>#Grafico Errado<br>###<br>library(lattice)<br>bwplot(resposta~fator1|fator2,data=dados)<br><br>###<br>
#Minha Solução<br>
###<br>dados[which(dados$fator2%in%"2"),"fator1"]<-sapply(dados[which(dados$fator2%in%"2"),"fator1"],function(x){ if(x=="B"){<br>                                                                                                                                                                                           replace(x, x == "B", "A")<br>

                                                                                                                                                                                          }<br>                                                                                                                                                                                  else {<br>

                                                                                                                                                                                          replace(x, x == "A", "B")<br>

                                                                                                                                                                                          }<br>                                                                                                                                                                                   })<br>

                                                               <br>###<br>#Grafico Certo<br>###<br>bwplot(resposta~fator1|fator2,data=dados)<span class="HOEnZb"><font color="#888888"><br><br><br><br><br><br><br><br><br><br clear="all">
<br>-- <br><div>Grato<br>Augusto C. A. Ribas</div>

<div> </div>
<div>Site Pessoal: <a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.heliohost.org</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div><br>
</font></span><br>_______________________________________________<br>
R-br mailing list<br>
<a 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></blockquote></div><br>