Bom dia,
Estou tentando criar um mapa brasileiro que apresente a quantidade de cooperativas presente em cada cidade.
Tenho uma tabela com o código do IBGE dos municípios e a quantidade de coop.
Peguei o shapefile no site do IBGE:
https://downloads.ibge.gov.br/downloads_geociencias.htm
e tentei seguir esse exemplo:
https://dataficacao.wordpress.com/2017/02/21/criando-mapa-brasil-r/
Entretanto, quando aplicado aos municípios, o R fica processando por uns minutos e de repente trava. O que pode ser?
Mais uma pergunta, gostaria de deixar a divisão por Estados e Regiões aparecendo. É possível?
Segue abaixo linhas de código:
shpmun <- readOGR("G:/Lupa Econômica/Ricardo/Qtd de
Coop/dados/MAPA/BRMUE250GC_SIR.shp", stringsAsFactors=FALSE, encoding="UTF-8")
load('G:/Lupa Econômica/Ricardo/Qtd de
Coop/dados/Rais_Coop_Estb_2016.RData')
Rais_Coop_Estb_2016$Cont <- as.numeric(c(1))
Rais_Coop_Estb_2016mapamun <- Rais_Coop_Estb_2016 %>% group_by(Município)
%>% mutate(cumsum = cumsum(Cont))
Rais_Coop_Estb_2016mapamun <- Rais_Coop_Estb_2016mapamun %>%
group_by(Município) %>% summarise(Score= max(cumsum))
Rais_Coop_Estb_2016mapamun <- as.data.frame(Rais_Coop_Estb_2016mapamun)
brasileiropgmun <- merge(shpmun,Rais_Coop_Estb_2016mapamun, by.x =
"CD_GEOCMU", by.y = "Município")
proj4string(brasileiropgmun) <- CRS("+proj=longlat +datum=WGS84 +no_defs")
#adicionando coordenadas geográficas
Encoding(brasileiropgmun$NM_MUNICIP) <- "UTF-8"
brasileiropgmun$Score[is.na(brasileiropgmun$Score)] <- 0
display.brewer.all()
pal <- colorBin("YlGn",domain = NULL,n=20) #cores do mapa
state_popupmun <- paste0("<strong>Município: </strong>",
brasileiropgmun$NM_MUNICIP,
"<br><strong>Pontos: </strong>",
brasileiropgmun$Score)
leaflet(data = brasileiropgmun) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(fillColor = ~pal(brasileiropgmun$Score),
fillOpacity = 0.8,
color = "#BDBDC3",
weight = 1,
popup = state_popupmun) %>%
addLegend("bottomright", pal = pal, values = ~brasileiropgmun$Score,
title = "Pontos Conquistados",
opacity = 1)
** A legenda também não está aparecendo.