<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:10pt"><div><span>Boa tarde a todos,</span></div><div><br><span></span></div><div><span>Com as dicas do Augusto Ribas e do prof. Paulo Justiniano, consegui, por meio de um post na internet, resolver o meu problema de colorir com cores distintas alguns municípios do Estado de Goiás</span><span></span><span> em um mapa com extensão shp. O código final, a quem possa interessar, ficou assim:</span></div><div><span><br></span></div><div><span>require(maptools)<br>map <- readShapePoly(file.choose()) <br>summary(map)<br>map$Nome_Munic<br><br><br>colors <- c("lightskyblue3", "antiquewhite1", "darksalmon", "cornflowerblue",<br> "gray94", "darkkhaki", "darkslategray3", "bisque2")<br><br>counties2 <- c("Acreúna", "Chapadão do Céu",
"Cristalina", "Montividiu",<br> "Palmeiras de Goiás", "Santa Helena de Goiás", "Silvânia") <br><br>counties.all = map$Nome_Munic<br>n.all = length(counties.all)<br>col.map = numeric(n.all)<br><br>for (i in 1:length(counties2)){<br> col.map[grep(counties2[i],counties.all)] = runif(1) <br>}<br>c2 = col.map!=0<br>col.map2=col.map<br>col.map2[!c2]= gray(0.94)<br>col.map2[c2]=colors<br><br>plot(map,col=col.map2,axes=T) <br><br>legend("topleft", legend=c("Acreúna", "Chapadão do Céu", "Cristalina", "Montividiu",<br> "Palmeiras de Goiás", "Santa Helena de Goiás", "Silvânia"), cex=0.9,<br> bty="n", fill= c("lightskyblue3", "antiquewhite1", "darksalmon", "cornflowerblue",<br> "darkkhaki",
"darkslategray3", "bisque2")) <br></span></div><div><span><br></span></div><div><span><br></span></div><div><span>Obrigado a todos,<br></span></div><div><span><br></span></div><div><span>Att.,</span></div><div><span><br></span></div><div>-----<br><span></span></div><div><span>Wirton Macedo Coutinho</span></div><div><span>Pesquisador - Fitopatologia</span></div><div><span>Embrapa Algodão</span></div><div><span>Rua Oswaldo Cruz, 1143, Centenário</span></div><div><span>Campina Grande, PB</span></div><div><span>CEP 58429-095<br></span></div><div><br><span></span></div><div><span></span></div><div><br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; margin-top: 5px; padding-left: 5px;"> <div style="font-family: Courier New, courier, monaco, monospace, sans-serif; font-size: 10pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div dir="ltr"> <font face="Arial" size="2"> <hr size="1">
<b><span style="font-weight:bold;">De:</span></b> Augusto Ribas <ribas.aca@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br; Wirton Macedo Coutinho <wirton_coutinho@yahoo.com.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Segunda-feira, 25 de Junho de 2012 17:27<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] Colorir alguns municípios em um mapa estadual com cores distintas<br> </font> </div> <br><a href="http://r-br.2285057.n4.nabble.com/R-br-Apostila-de-R-Jackson-Aquino-td4435177.html" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Apostila-de-R-Jackson-Aquino-td4435177.html</a><br><br>Olhe esse post antigo. Tem um link com uma apostila muito boa pra ter<br>uma ideia de como mexer com mapas, o basico.<br>Capitulo 11 mata sua duvida e muito mais.<br>Em portugues, muito bem escrito, uma sugestão de leitura que vi na<br>lista aqui e me ajudou
muito.<br><br>Em 25 de junho de 2012 16:14, Augusto Ribas <<a ymailto="mailto:ribas.aca@gmail.com" href="mailto:ribas.aca@gmail.com">ribas.aca@gmail.com</a>> escreveu:<br>> Bom, seu problema é mais ou menos isso.<br>><br>> #abrindo pacote pra plotar mapas, assumo que vc ta usando esse, o maptools<br>> library(maptools)<br>><br>> #lendo um mapa pra exemplo<br>> mapa<- readShapeSpatial(system.file("shapes/sids.shp", package="maptools")[1],<br>> IDvar="FIPSNO", proj4string=CRS("+proj=longlat +ellps=clrk66"))<br>><br>> #mapa<br>> summary(mapa)<br>> #informações aqui<br>> mapa@data<br>> #vamo pega o nome das cidades<br>> mapa@data$NAME<br>><br>><br>> #o problema que vc ta fazendo isso<br>> plot(mapa, axes=TRUE, col=mapa@data$NAME=="Alamance")<br>> plot(mapa, col=mapa@data$NAME=="Avery", add=TRUE)<br>> plot(mapa, col=mapa@data$NAME=="Buncombe", add=TRUE)<br>><br>> #no col
vc ta pondo essa informação<br>> mapa@data$NAME=="Alamance"<br>> #que é sempre 1, logo vc colore de preto, 1 na palleta default é<br>> preto, true é igual 1, tem 0 0 0 que é branco e 1 que é preto<br>> sum(mapa@data$NAME=="Alamance")<br>><br>> #vc precisa de numeros diferentes pra cores<br>> #ou o nome da cor pra cidade<br>> #ou faze uma palleta<br>> #mas assim vc tem numeros diferentes<br>> as.numeric(mapa@data$NAME)<br>><br>><br>> #e vai sair cores diferentes, olha esse plot, note o que to usando no col.<br>> plot(mapa, axes=TRUE, col=as.numeric(mapa@data$NAME))<br>><br>> #nesse exemplo vc ta usando essas cores (numeros) pra esses lugares<br>> data.frame(cores=as.numeric(mapa@data$NAME),localidade=mapa@data$NAME)<br>><br>> #então faz um vetor, com o numero de cidades, e escrever "black",<br>> "blue", as cores que vc quer por cidade, ou usa numeros, ou usa uma<br>> palleta pronta,
tipo as que vem no pacote Rcolorbrewer.<br>><br>> Bem espero ter ajudado.<br>><br>> Em 25 de junho de 2012 13:00, Wirton Macedo Coutinho<br>> <<a ymailto="mailto:wirton_coutinho@yahoo.com.br" href="mailto:wirton_coutinho@yahoo.com.br">wirton_coutinho@yahoo.com.br</a>> escreveu:<br>>> Boa tarde pessoal,<br>>><br>>> Gostaria de saber se alguém tem alguma dica de como colorir alguns<br>>> municipios em um mapa estadual (extensão shp) com cores distintas.<br>>><br>>> Preciso colorir 7 municipios no mapa do Estado de Goiás com cores distintas<br>>> (cada município com uma cor diferente), mas não estou conseguindo.<br>>><br>>> Tenho tentado, sem sucesso, da seguinte forma:<br>>><br>>> plot(mapa, axes=TRUE, col=mapa$Nome_Munic=="Santa Helena de Goiás")<br>>> plot(mapa, col=mapa$Nome_Munic=="Chapadão do Céu", add=TRUE)<br>>> plot(mapa,
col=mapa$Nome_Munic=="Montividiu", add=TRUE)<br>>> plot(mapa, col=mapa$Nome_Munic=="Acreúna", add=TRUE)<br>>> plot(mapa, col=mapa$Nome_Munic=="Perolândia", add=TRUE)<br>>> plot(mapa, col=mapa$Nome_Munic=="Palmeiras de Goiás", add=TRUE)<br>>> plot(mapa, col=mapa$Nome_Munic=="Cristalina", add=TRUE)<br>>><br>>> Apesar de conseguir colorir todos os 7 municipios, com os comando acima,<br>>> todos os 7 ficam com a mesma cor.<br>>><br>>> Certo de contar com a boa vontade de todos, agradeço antecipadamente.<br>>><br>>> Att.,<br>>><br>>> --<br>>> Wirton Macedo Coutinho<br>>> Pesquisador Fitopatologia<br>>> Embrapa Algodão<br>>> Rua Oswaldo Cruz, 1143, Centenário<br>>> Campina Grande PB<br>>> CEP 28428-095<br>>><br>>> _______________________________________________<br>>> R-br mailing list<br>>> <a
ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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<br>>> mínimo reproduzível.<br>><br>><br>><br>> --<br>> Grato<br>> Augusto C. A. Ribas<br>><br>> Site Pessoal: <a href="http://augustoribas.heliohost.org/" target="_blank">http://augustoribas.heliohost.org</a><br>> Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br><br><br><br>-- <br>Grato<br>Augusto C. A. Ribas<br><br>Site Pessoal: <a href="http://augustoribas.heliohost.org/" target="_blank">http://augustoribas.heliohost.org</a><br>Lattes:
<a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br><br><br> </div> </div> </blockquote></div> </div></body></html>