Seção 7 Abastecimento de agua

IGAM, 2019. Disponível em http://www.igam.mg.gov.br/mapas-e-bases-cartograficas. Acesso em 20/03/2019

abastecimento_de_agua           <- st_transform(sf::read_sf("layers//abastecimento_de_agua//0602_MG_Percent_Atend_Abastecimento_Agua_Area_Concessao_pol.shp", options = "ENCODING=WINDOWS-1252"), 4326)
semiarido                       <- st_transform(sf::read_sf("layers//semiarido//1110_mg_semiarido_pol.shp", options = "ENCODING=WINDOWS-1252"), 4326)


colnames(abastecimento_de_agua)[which(names(abastecimento_de_agua) == "mun_nom")]     <- "Nome do Município"
colnames(abastecimento_de_agua)[which(names(abastecimento_de_agua) == "X2_per_ate_")]     <- "Percentual de atendimento - Abastecimento de Água"
colnames(abastecimento_de_agua)[which(names(abastecimento_de_agua) == "pop_tot__1")]     <- "População total"


abastecimento_de_agua$`Percentual de atendimento - Abastecimento de Água`[abastecimento_de_agua$`Percentual de atendimento - Abastecimento de Água` == 0] <- NA


  mapview(semiarido,
          alpha.regions = 0,
          col.regions = "black",
          #map.types = c("Esri.WorldImagery", "CartoDB.Positron", "CartoDB.DarkMatter", "OpenStreetMap", "Esri.WorldImagery", "OpenTopoMap"),
          layer.name = "Semiárido Mineiro",
          lwd = 2
  ) +
  mapview(
    abastecimento_de_agua,
    #col.regions = c("green"),
    zcol = "Percentual de atendimento - Abastecimento de Água",
    at = seq(10, 100, 5),
    col.regions = brewer.pal(n = 8, name = "Blues"),
    alpha = 1,
    map.types = c("Esri.WorldImagery", "CartoDB.Positron", "CartoDB.DarkMatter", "OpenStreetMap", "Esri.WorldImagery", "OpenTopoMap"),
    layer.name = "Abastecimento de Água (%)",
    popup = popupTable(
      abastecimento_de_agua,
      zcol =  c("Nome do Município", "Percentual de atendimento - Abastecimento de Água", "População total")))