<div dir="auto"><div>Obrigado a todos. Vou tentar me adequar às diretrizes do Fórum.</div><div dir="auto"><br></div><div dir="auto">Att,</div><div dir="auto"><br></div><div dir="auto">Marcelo Magalhães<br><br><div class="gmail_quote" dir="auto"><div dir="ltr" class="gmail_attr">Em dom, 29 de mar de 2020 18:11, Mauro Sznelwar por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><span style="font-size:medium;color:#0000ff">Está faltando o conjunto de dados!</span></div>
<div> </div>
<div dir="ltr">Marcelo, 
<div><br>
<div>Seu código não atende à diretriz deste grupo em <a href="http://www.leg.ufpr.br/r-br-guia" target="_blank" rel="noreferrer">Guia de Postagem no R-br</a>, em particular, a solicitação de fornecer o CMR (<em>código mínimo reproduzível</em>).</div>
</div>
<div>As chances de você obter respostas são maiores quando essa recomendação é seguida.</div>
<div> </div>
<div>HTH</div>
</div>
<div> </div>
<div class="gmail_quote">
<div class="gmail_attr" dir="ltr">On Sun, Mar 29, 2020 at 9:05 AM Marcelo Magalhães por (R-br) <<a href="http://../../../undefined//compose?to=r-br@listas.c3sl.ufpr.br" target="_blank" rel="noreferrer">r-br@listas.c3sl.ufpr.br</a>> wrote:</div>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid #cccccc;padding-left:1ex">
<div lang="PT-BR">
<div>
<p class="MsoNormal"> </p>
<p class="MsoNormal"> </p>
<p class="MsoNormal">Prezados e Prezadas,</p>
<p class="MsoNormal"> </p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">Estou trabalhando com o IVS (Índice de Vulnerabilidade Social), mais precisamente com as UDHs (Unidades de Habitação) para o Município de Jaboatão dos Guararapes - PE. A base  Completa + Shapefiles estão no site do Ipea (<a href="http://ivs.ipea.gov.br/index.php/pt/biblioteca" target="_blank" rel="noreferrer"><span style="color:#007791;text-decoration:none">http://ivs.ipea.gov.br/index.php/pt/biblioteca</span></a>). Gostaria de fazer um mapa do Índice de Vulnerabilidade Social do Município para saber quais as localidades mais vulneráveis.</span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white;box-sizing:border-box;font-variant-ligatures:normal;font-variant-caps:normal;text-align:start;text-decoration-style:initial;text-decoration-color:initial;word-spacing:0px"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">Tentei unir pelo código do município e pela variável  UDH_Atlas no shapefile e udh e travei.</span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white;box-sizing:border-box;font-variant-ligatures:normal;font-variant-caps:normal;text-align:start;text-decoration-style:initial;text-decoration-color:initial;word-spacing:0px"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">Ao que parece:</span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white;box-sizing:border-box;font-variant-ligatures:normal;font-variant-caps:normal;text-align:start;text-decoration-style:initial;text-decoration-color:initial;word-spacing:0px"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">1. UDHs são colocados como "strings" pelo R, ao colocar a função as.numeric(), há uma mudança nas linhas.</span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white;box-sizing:border-box;font-variant-ligatures:normal;font-variant-caps:normal;text-align:start;text-decoration-style:initial;text-decoration-color:initial;word-spacing:0px"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">2. UDHs são coordenadas únicas (não se separam em Long. e Lat.), ou temos que separá-las em Long e Lat?</span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">Agradeço desde já a ajuda,</span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">Marcelo Nery Magalhães</span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">Script:</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">#Bibliotecas</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">library(ggplot2)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">library(rgdal)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">#Shape</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">Jab<-readOGR("C:/Users/usuario/Documents/IVS", "UDHs_RM_Todas")</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">head(Jab@data)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">#Transformando string em numérico</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">Jab$UDH_ATLAS<-as.numeric(Jab$UDH_ATLAS)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">#Base de dados/tabela</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">ivs<-read.csv("C:/Users/usuario/Documents/IVS/jab.csv", sep = ";", head=T, dec = ",")</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">head(ivs)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">ivs<-na.omit(ivs)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">names(Jab@data)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">names(ivs)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">#Transformando os nomes das variáveis em um só para cada objeto</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">names(ivs)[12]<-c("Cod_mun_6")</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">names(Jab)[1]<-c("udh")  # tentei criar uma chave com essa variável, já que com o código do município não estava funcionando</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">names(Jab)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">names(ivs)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">#Ordenando</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">ivs<-ivs[order(ivs$Cod_mun_6),]</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">Jab<-Jab@data[order(Jab$Cod_mun_6),]</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">head(ivs)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">head(Jab)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">#Combinando através da Chave do Código do Município</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">j<-merge(Jab,ivs,by.y="Cod_mun_6") # Houve problema ao criar “j”</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">head(j)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">dim(Jab)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">dim(ivs)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">dim(j)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">fortify(Jab)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">j.f<-fortify(Jab,region="udh")</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b"> </span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">j$ivs</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">#Categorizando</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">j$ivscat<-cut(j$ivs, breaks = c(0,0.200,0.300,0.400,0.500,1), labels=c("0 a 0,200 - Muito Baixa", "0,200 a 0,300 - Baixa", "0,300 a 0,400 - Média", "0,400 a 0,500 - Alta", "0,500 a 1 - Muito Alta"), include.lowest=T)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">names(j)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">names(j.f)</span></p>
<p style="background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">#Problema: udh não possui latitude e lobgitude (como fazer, então?)</span></p>
<p style="margin-right:0cm;margin-bottom:7.9pt;margin-left:0cm;background:white"><span style="font-size:10pt;font-family:Helvetica,sans-serif;color:#29303b">jabo<-merge(j, j.f, by.y="udh")</span></p>
<p class="MsoNormal"> </p>
<p class="MsoNormal"> </p>
</div>
</div>
_______________________________________________<br> R-br mailing list<br> <a href="http://../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br" target="_blank" rel="noreferrer">R-br@listas.c3sl.ufpr.br</a><br> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer noreferrer" 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" rel="noreferrer noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote>
</div>
<div>_______________________________________________<br>R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" rel="noreferrer">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank" rel="noreferrer">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" rel="noreferrer">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" rel="noreferrer">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer noreferrer" 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" rel="noreferrer noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div></div></div>