Seção 9 Residuos solidos urbanos

lixoes                          <- st_transform(sf::read_sf("layers//lixoes//1901_MG_Lixoes_pto.shp", options = "ENCODING=WINDOWS-1252"), 4326)
aterros_sanitarios              <- st_transform(sf::read_sf("layers//aterros_sanitarios//1901_MG_Aterros_Sanitarios_pto.shp", options = "ENCODING=WINDOWS-1252"), 4326)
aterros_sanitarios_pequenos     <- st_transform(sf::read_sf("layers//aterros_sanitarios_pequenos//1901_MG_Aterros_Sanitarios_Pequeno_porte_pto.shp", options = "ENCODING=WINDOWS-1252"), 4326)

colnames(lixoes)[which(names(lixoes) == "municipio")]     <- "Município"

colnames(aterros_sanitarios)[which(names(aterros_sanitarios) == "municipio")]     <- "Município"
colnames(aterros_sanitarios)[which(names(aterros_sanitarios) == "regul_amb")]     <- "Regularidade Ambiental"

colnames(aterros_sanitarios_pequenos)[which(names(aterros_sanitarios_pequenos) == "municipio")]     <- "Município"
colnames(aterros_sanitarios_pequenos)[which(names(aterros_sanitarios_pequenos) == "regul_amb")]     <- "Regularidade Ambiental"

mapview(
  lixoes,
  col.regions = "red",
  layer.name = "Lixões",
  legend = T,
  popup = popupTable(
    lixoes,
    zcol =  c("Município"))) +
  mapview(
    aterros_sanitarios,
    col.regions = "blue",
    layer.name = "Aterros Saintários",
    popup = popupTable(
      aterros_sanitarios,
      zcol =  c("Município", "Regularidade Ambiental"))) +
  mapview(
    aterros_sanitarios_pequenos,
    col.regions = "skyblue",
    layer.name = "Pequenos aterros sanitários",
    popup = popupTable(
      aterros_sanitarios_pequenos,
      zcol =  c("Município", "Regularidade Ambiental")))