<div dir="ltr"><div>Alisson, boa tarde!</div><div><br></div><div>Embora o script abaixo possa não ser a melhor forma de resolver o problema, deve servir como ponto de partida!</div><div><br></div><div><div><font face="courier new, monospace">### <BEGIN> ###</font></div>
<div><font face="courier new, monospace">### Dados</font></div><div><font face="courier new, monospace">dURL1 <- '<a href="http://r-br.2285057.n4.nabble.com/attachment/4660645/0/normais.clima.csv">http://r-br.2285057.n4.nabble.com/attachment/4660645/0/normais.clima.csv</a>'</font></div>
<div><font face="courier new, monospace">dURL2 <- '<a href="http://r-br.2285057.n4.nabble.com/attachment/4660645/1/inmet.mensal.csv">http://r-br.2285057.n4.nabble.com/attachment/4660645/1/inmet.mensal.csv</a>'</font></div>
<div><font face="courier new, monospace">dNormal  <- read.table(dURL1, header=T, sep=';')</font></div><div><font face="courier new, monospace">dMensal  <- read.table(dURL2, header=T, sep=';')</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Inspecionando os dados (colunas, linhas e contagem de NA's)</font></div><div><font face="courier new, monospace">length(dNormal); nrow(dNormal); length(which(<a href="http://is.na">is.na</a>(dNormal)))</font></div>
<div><font face="courier new, monospace">length(dMensal); nrow(dMensal); length(which(<a href="http://is.na">is.na</a>(dMensal)))</font></div><div><font face="courier new, monospace">head(dNormal,3); head(dMensal,3) </font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Mapeia os valores NA's</font></div><div><font face="courier new, monospace">naMap <- which(<a href="http://is.na">is.na</a>(dNormal), arr.ind = TRUE, useNames = TRUE); head(naMap)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Visualiza NA's</font></div><div><font face="courier new, monospace">length(naMap[,1]); length(unique(naMap[,1])) ### Linhas que contém algum NA</font></div>
<div><font face="courier new, monospace">dNormal[unique(naMap[,1]),]</font></div><div><font face="courier new, monospace">dNormal[(naMap[,1]),] ### mesmo que anterior / talvez aplique 'unique' por 'default'?</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Correlacionar as tables usando $Codigo e $Mes e preparar data.frame</font></div><div><font face="courier new, monospace">naData          <- data.frame(naMap)</font></div>
<div><font face="courier new, monospace">naData$Codigo   <- dNormal[naMap[,1],]$Codigo</font></div><div><font face="courier new, monospace">naData$Mes      <- dNormal[naMap[,1],]$Mes</font></div><div><font face="courier new, monospace">naData$ver      <- (naData$Codigo %in% dMensal$Codigo) & (naData$Mes %in% dMensal$Mes)</font></div>
<div><font face="courier new, monospace">naData$pos      <- NA</font></div><div><font face="courier new, monospace">naData$val      <- NA</font></div><div><font face="courier new, monospace">### (ver)ifica correspondência</font></div>
<div><font face="courier new, monospace">### (pos)ição da correspondência</font></div><div><font face="courier new, monospace">### (val)or correspondente</font></div><div><font face="courier new, monospace">head(naData)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Linhas sem correspondência</font></div><div><font face="courier new, monospace">head(naData[which(naData$ver==F),])</font></div>
<div><font face="courier new, monospace">nrow(naData[which(naData$ver==F),])</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Obter valores para dados com correspondência ($val)</font></div>
<div><font face="courier new, monospace">for (i in 1:nrow(naData)) { </font></div><div><font face="courier new, monospace">          if (naData$ver[i]==TRUE) {  </font></div><div><font face="courier new, monospace">                    naData$pos[i]=(which(dMensal$Codigo==naData[i,3] & dMensal$Mes==naData[i,4]))</font></div>
<div><font face="courier new, monospace">                    naData$val[i]=(dMensal[naData$pos[i],naData$col[i]])</font></div><div><font face="courier new, monospace">}}</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">### Confere número de dados sem valor (~ linhas sem correspondência)</font></div><div><font face="courier new, monospace">length(which(<a href="http://is.na">is.na</a>(naData$val)))</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Nesse ponto, naData compila o valor e a posição onde mudar.</font></div><div><font face="courier new, monospace">head(naData)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Operando em uma cópia dos dados originais</font></div><div><font face="courier new, monospace">dNormal2 <- dNormal</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">for (i in 1:nrow(naData)) {</font></div><div><font face="courier new, monospace">          dNormal2[naMap[i,1],naMap[i,2]] <- naData$val[i]                    </font></div>
<div><font face="courier new, monospace">          }</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Inspeção final</font></div><div><font face="courier new, monospace">length(which(<a href="http://is.na">is.na</a>(dNormal)))  ### NA's no original</font></div>
<div><font face="courier new, monospace">length(which(<a href="http://is.na">is.na</a>(dNormal2))) ### NA's no final</font></div><div><font face="courier new, monospace"><br></font></div><div><span style="font-family:'courier new',monospace">head(dNormal2)</span><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">str(dNormal2)</font></div><div><font face="courier new, monospace">#edit(dNormal2)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### <END> ###</font></div>
</div><br><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br></div></div>