Barrios

# Obtengo los barrios de Neuquén Confluencia
barrios <- opq(bbox = getbb("Neuquen, Neuquen "), osm_types = c( "way", "relation"))  %>%  
  add_osm_feature(key = 'boundary', value = 'administrative') %>%
  add_osm_feature(key = 'admin_level', value = '9') %>%
  osmdata_sf()

building_barrios <- barrios$osm_multipolygons

# evidentemente hay un problema en los poligonos porque luego de utilizar st_make_valid pude mostrarlo en el mapa web
valid_building_barrios <- st_make_valid(building_barrios)

# paleta para mapa categórico (depende de una variable en la escala nominal)
paleta <- colorFactor(
  palette = "Set1",
  domain = valid_building_barrios$name)

leaflet()%>%
  addTiles()%>%
  addPolygons(data = valid_building_barrios, label = ~name,  fillOpacity = 1, fillColor  = ~paleta(valid_building_barrios$name))