<div dir="ltr">Da para informar o valor do NA no read.table<div><br></div><div>read.table('teste.txt', sep= '', dec = '.', skip=24, <b>na = '-'</b>)<br></div><div><br></div><div>O problema que tu está tendo é que ao fazer as.numeric() num fator, tu pega a posição dos labels (o 1o label, o 2o label, ..., por isso tu obteve números inteiros) e não o labels:</div><div><br></div><div><div>> (f <- factor(3:1, levels = 3:1))</div><div>[1] 3 2 1</div><div>Levels: 3 2 1</div><div>> as.numeric(f)</div><div>[1] 1 2 3</div></div><div><br></div><div>Uma solução, que está no help da função factor(), é usar:</div><div><br></div><div><div>> as.numeric(levels(f))[f]<br></div><div>[1] 3 2 1</div></div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Fri, Sep 12, 2014 at 11:35 AM, Leonardo Monteiro <span dir="ltr"><<a href="mailto:monteiroleonardo6@gmail.com" target="_blank">monteiroleonardo6@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Prezados, segue o codigo para o exemplo:</div><div><br></div><div><br></div><div>setwd('C:/Users/Leonardo/Desktop/')</div><div><br></div><div><br></div><div>##Baixando os dados da internet</div><div>setInternet2(FALSE) #desativa</div><div>setInternet2(NA) #mostra o status</div><div><br></div><div>base<- '<a href="http://power.larc.nasa.gov/cgi-bin/cgiwrap/solar/agro.cgi?email=agroclim%40larc.nasa.gov&step=1&lat=" target="_blank">http://power.larc.nasa.gov/cgi-bin/cgiwrap/solar/agro.cgi?email=agroclim%40larc.nasa.gov&step=1&lat=</a>'</div><div><br></div><div>url<- paste0(base,sep=-22.7, '&lon=', sep = -48, '&ms=1&ds=1&ys=', sep = 1983, '&me=12&de=31&ye=', sep = 1986, '&p=toa_dwn&p=swv_dwn&p=lwv_dwn&p=T2M&p=T2MN&p=T2MX&p=RH2M&p=DFP2M&p=RAIN&p=WS10M&submit=Submit')</div><div><br></div><div>download.file(url, 'teste.txt', method = "auto", quiet = FALSE, mode = "w", cacheOK = TRUE)</div><div><br></div><div>##</div><div><div>dados<- read.table('teste.txt', sep= '', dec = '.', skip=24); head(dados) </div><div><br></div><div>dados<- dados[,-c(3,5, 10)]; head(dados)</div><div>        </div><div>colnames(dados)<- c('ano', 'dj', 'Qg', 'tmed', 'tmin', 'tmax', 'ur', 'chuva', 'u10'); head(dados)</div><div><br></div><div>dados[180:190,] # dados onde comeca a haver dados de Qg (os dados estao corretos)</div><div><br></div><div>dados$Qg[dados$Qg == '-']<- NA; dados[180:190,]  ##apresentando os dados de Qg ja com NA</div><div><br></div><div>class(dados$Qg) # dados como factor</div><div><br></div><div>dados$Qg<- as.numeric(dados$Qg); class(dados$Qg)   ##Ok, eles estao como 'numeric'</div><div><br></div><div>dados[180:190,] #na transformacao, os valores de Qg mudaram</div></div><div><br></div><div>#####<br></div><div><br></div><div><br></div><div>Alguem poderia me ajudar a inserir os valores NA onde estao apresentados '-', entretanto sem que modifique o valor original dos dados (os que nao sao NA)??</div><div><br></div><div><br></div><div>obrigado,</div><div><br></div><div>Leonardo</div><div><br></div><div><br></div><div dir="ltr"><div><br></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></div>