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)<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>