Cadastro Nacional Estabelecimentos de Saúde

leaflet()%>%
  addProviderTiles("OpenStreetMap.Mapnik", group = c("Farmacias", "UBS"),
                   options = leaflet::providerTileOptions(opacity = 0.35)) %>%
  addCircleMarkers(data = df_mapa, lng = ~NU_LONGITUDE, lat = ~NU_LATITUDE, 
                   radius = 5, fillOpacity = 1, opacity = 1, group = c("Farmacias"),
                   color = "blue",
                   popup = ~NO_FANTASIA) %>%
  addCircleMarkers(data = df_mapa_ubs, lng = ~NU_LONGITUDE, lat = ~NU_LATITUDE, 
                   radius = 5, fillOpacity = 1, opacity = 1, group = c("UBS"),
                   color = "red",
                   popup = ~NO_FANTASIA) %>%
  addFullscreenControl(position = "topleft")%>%
  addLayersControl(position = "topright",
                   baseGroups = c("Farmacias", "UBS"),
                   overlayGroups = c("Farmacias", "UBS"),
                   options = layersControlOptions(collapse=FALSE))%>%
  addLegend(position = "bottomright",
            colors = c("blue", "red"),
            labels = c("Farmacias", "UBS"))