Escuelas Secundarias de Corrientes con Leaflet.extra & leaflet

Leemos los datos con “read.csv”, y luego aplicamos el package “leaflet” Nota: las columnas de coordenadas se llaman Longitu y Latitud, respectivamente.

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()