Distribuição domicílios Paim Filho RS

Mapa produzido a partir das Coordenadas dos endereços disponibilizados pelo IBGE

palette <- colorFactor(palette = rainbow(8), domain = df_CoordEndPF$DESCRICAO)

mapa <- leaflet(df_CoordEndPF) %>%
  addProviderTiles("OpenStreetMap.Mapnik",
                   options = leaflet::providerTileOptions(opacity = 0.75))%>%
  addCircleMarkers(
    lng = ~LONGITUDE2,
    lat = ~LATITUDE2,
    radius = 3,
    opacity = 1,
    color = ~palette(DESCRICAO),
    group = ~DESCRICAO
  ) %>%
  addLegend(
    position = "bottomright",
    pal = palette,
    values = ~DESCRICAO,
    labFormat = labelFormat(transform = function(x) {
      total <- tipos_domicilios$n[match(x, tipos_domicilios$DESCRICAO)]
      paste(x, " (", total, ")", sep = "")
    }),
    title = "Tipos",
    opacity = 1
  ) %>%
  addLayersControl(
    overlayGroups = unique(df_CoordEndPF$DESCRICAO),
    options = layersControlOptions(collapsed = FALSE)
  )%>%
  addFullscreenControl(position = "topleft")

# Exibir mapa
mapa