Leaflet & Leaflet.extras

library(leaflet)
library(leaflet.extras)
datos<-read.csv("C:/Users/Los Mourglia/Documents/escuelas secundarias.csv")

leaflet(datos) %>% addTiles() %>%
  addCircles(lng = ~Longitud, lat = ~Latitud, weight = 1,
             radius = 20) %>%
  addDrawToolbar(
    targetGroup='datos',
    editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))  %>%
    addLayersControl(overlayGroups = c('Escuelas Secundarias'), options =
                     layersControlOptions(collapsed=FALSE)) %>%
  addStyleEditor()

y Ahora un mapa de calor

library(leaflet)
library(leaflet.extras)
leaflet(datos) %>% addTiles() %>%
  addHeatmap(lng = ~Longitud, lat = ~Latitud, intensity = 1,
             blur = 20, max = 0.05, radius = 15)