Seção 8 Coleta de Esgotos

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

percentual_de_coleta_de_esgoto  <- st_transform(sf::read_sf("layers//percentual_de_coleta_de_esgoto//0603_MG_Perc_Atend_Com_Coleta_Esgoto_Area_Urbana_pol.shp", options = "ENCODING=WINDOWS-1252"), 4326)

percentual_de_coleta_de_esgoto$per_ate_co[percentual_de_coleta_de_esgoto$per_ate_co == "Não disponível"] <- NA
percentual_de_coleta_de_esgoto$per_ate_co <- gsub(',', '.', percentual_de_coleta_de_esgoto$per_ate_co)
percentual_de_coleta_de_esgoto$per_ate_co = as.numeric(as.character(percentual_de_coleta_de_esgoto$per_ate_co))


colnames(percentual_de_coleta_de_esgoto)[which(names(percentual_de_coleta_de_esgoto) == "mun_nom")]     <- "Nome do Município"
colnames(percentual_de_coleta_de_esgoto)[which(names(percentual_de_coleta_de_esgoto) == "per_ate_co")]     <- "Percentual de atendimento - Coleta de esgotos"
colnames(percentual_de_coleta_de_esgoto)[which(names(percentual_de_coleta_de_esgoto) == "pop_tot_co")]     <- "População total"

    mapview(
      percentual_de_coleta_de_esgoto,
      zcol = "Percentual de atendimento - Coleta de esgotos",
      #map.types = c("Esri.WorldImagery", "CartoDB.Positron", "CartoDB.DarkMatter", "OpenStreetMap", "Esri.WorldImagery", "OpenTopoMap"),
      layer.name = "Coleta de Esgotos - (%)",
      alpha = 1,
      col.regions = colorRampPalette(c('yellow', 'darkred')),
      at = seq(10, 100, 5),
      popup = popupTable(
        percentual_de_coleta_de_esgoto,
        zcol =  c("Nome do Município", "Percentual de atendimento - Coleta de esgotos", "População total")))