Juliana, confira abaixo se é isso.<br><br>require(doBy)<br><br>dados <- read.table("dadosvrf_met_2011090100.txt")<br>names(dados) <- c("data", "mrun", "frange", "mtype", "cod", "ylat", "xlon", "V10", "dirVT", "hOD", "hMR", "hVG", "dirMO", "dirPO", "dirMM", "dirPM", "perMO", "perPO", "perPM")<br>
<br>unique(dados$cod)<br>#[1] "69151" "69150" "69152" "SBLB" "SBMM" "SBEC" "PRAT"<br><br>table(dados$cod)<br>#69150 69151 69152 PRAT SBEC SBLB SBMM <br>
# 78 78 78 78 78 78 78<br><br><br>## selecionando somente variaveis de interesse <br>oldVals <- as.list(unique(dados$cod)[4:7])<br>## vetor com novos valores para as variaveis de interesse<br>newVals <- as.list(unique(c(11114, 11115, 11117, 11118)))<br>
<br>dados$new_cod<- recodeVar(x = dados$cod, oldVals, newVals)<br><br>table(dados$new_cod)<br>#11114 11115 11117 11118 69150 69151 69152 <br># 78 78 78 78 78 78 78<br><br><br>[ ]'s<br><br>Jônatan.<br>
<br><br><div class="gmail_quote">2011/12/21 Juliana Freitas de Mello e Silva <span dir="ltr"><<a href="mailto:juliana_fms_bouvier@hotmail.com">juliana_fms_bouvier@hotmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
<div><div dir="ltr">
link para os dados, sendo a variável de interesse, a quinta coluna<br>
<a href="http://www.datafilehost.com/download-d7e4940c.html" target="_blank">http://www.datafilehost.com/download-d7e4940c.html</a><br><br>se for facilitar, é a variável "cod"<br> names(dados)<-c("data", "mrun", "frange", "mtype", "cod", "ylat", "xlon", "V10", "dirVT", "hOD", "hMR", "hVG", "dirMO", "dirPO", "dirMM", "dirPM", "perMO", "perPO", "perPM")<br>
<br><br>ou<br>A<- rep(69151,78)<br>B<- rep(69150,78)<br>C<- rep(69152,78)<br>D<- rep("SBLB",78)<br>E<- rep("SBMM",78)<br>F<- rep("SBEC",78)<br>G<- rep("PRAT",78)<br>
<br>data <-c(A,B,C,D,E,F,G)<br>data<- as.factor(data)<br><br><br>A minha intenção é: 'codificar' a variável de interesse (cod) da seguinte forma: quando a observação for um número, quero que continue, caso contrário<br>
SBLB vira 11114<br>SBEC vira 11115<br>SBMM vira 11117<br>PRAT vira 11118<br><br>Obrigada!<br><br><div><div></div><hr>From: <a href="mailto:edinhoestat@yahoo.com.br" target="_blank">edinhoestat@yahoo.com.br</a><br>Date: Tue, 20 Dec 2011 17:03:17 -0400<br>
To: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a><br>Subject: Re: [R-br] Transformação de variáveis.<div><div></div><div class="h5"><br><br>
<div>Juliana sua mensagem necessita de um CMR, como disse o Walmes. No site da lista tem instruções de como postar. Crie um arquivo com algumas linhas do seu banco em excell ou csv e poste juntamente com o seu script.</div>
<div><br></div><div>[ ]s<br><br>Edson Lira<div>Estatístico</div><div>Ma-Am</div></div><div><br>Em 20/12/2011, às 16:01, Juliana Freitas de Mello e Silva <<a href="mailto:juliana_fms_bouvier@hotmail.com" target="_blank">juliana_fms_bouvier@hotmail.com</a>> escreveu:<br>
<br></div><div></div><blockquote><div>
<div dir="ltr">
<br><br><div><div></div><hr>From: <a href="mailto:juliana_fms_bouvier@hotmail.com" target="_blank">juliana_fms_bouvier@hotmail.com</a><br>To: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a><br>
Subject: Transformação de variáveis.<br>Date: Tue, 20 Dec 2011 17:58:32 -0200<br><br>
<div dir="ltr">
Eu achei que esse tópico já existia, porém não o encontrei.<br><br>Quero codificar observações de uma variável no meu banco de dados para que eu tenha apenas números. Sendo assim, quando eu tiver "PRAT", por exemplo, quero que fique "11117", "SBEC", "11118".<br>
Tentei colocar vários "IFs", mas não é lá muito eficiente.<br><br>Segue a saída após "table(dados$V5)".<br><br><br>69150 69151 69152 PRAT SBEC SBLB SBMM <br> 78 78 78 78 78 78 78 <br>
<br>Obrigada!<br> </div></div> </div>
</div></blockquote><blockquote><div><span>_______________________________________________</span><br><span>R-br mailing list</span><br><span><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a></span><br>
<span><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></span><br><span>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.</span></div>
</blockquote><br></div></div>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<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>
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.</div> </div></div>
<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><br clear="all"><br>-- <br>#------------------------------------------------------------------------------#<br>
# Jônatan Dupont Tatsch #<br># Climate and Biosphere Laboratory #<br># Department of Atmospheric Sciences #<br>
# Institute of Astronomy, Geophysics and Atmospheric Sciences #<br># University of São Paulo #<br># Rua do Matão, 1226 #<br>
# Cid. Universitária, São Paulo, SP, Brazil, CEP: 05508-090 #<br># Phone:+55 11 3091-4772, Fax:+55 11 3091-4714 #<br># <a href="http://jonatandupont.weebly.com/index.html" target="_blank">http://jonatandupont.weebly.com/index.html</a> #<br>
#------------------------------------------------------------------------------#<br>