<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">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="../../../undefined//compose?to=r-br@listas.c3sl.ufpr.br" target="_blank">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 class="gmail-m_8094230257664777765WordSection1">
<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"><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="../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br /> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="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" 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 />R-br@listas.c3sl.ufpr.br<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 /><br /></div>