Listando capas de un WFS

mapaEducativoNac <- 'WFS:http://mapa.educacion.gob.ar/geoserver/ows?service=wfs&version=1.1.0&request=GetCapabilities'
st_layers(mapaEducativoNac)
## Driver: WFS 
## Available layers:
##                          layer_name geometry_type features fields crs_name
## 1 publico:establecimiento_educativo         Point    64490     12   WGS 84
## 2 publico:institucion_universitaria                   1450     15   WGS 84
## 3     publico:ministerios_educacion   Multi Point       25      8   WGS 84

Feature asociado a una capa

lyr <- 'publico:institucion_universitaria'
universidades<- st_read(dsn = mapaEducativoNac, layer = lyr)
## Reading layer `publico:institucion_universitaria' from data source 
##   `WFS:http://mapa.educacion.gob.ar/geoserver/ows?service=wfs&version=1.1.0&request=GetCapabilities' 
##   using driver `WFS'
## Simple feature collection with 1450 features and 15 fields
## Geometry type: POINT
## Dimension:     XY
## Bounding box:  xmin: -72.3425 ymin: -54.8254 xmax: -54.484 ymax: -22.1045
## Geodetic CRS:  WGS 84

Feature Universidades

head(universidades,5)
## Simple feature collection with 5 features and 15 fields
## Geometry type: POINT
## Dimension:     XY
## Bounding box:  xmin: -72.3425 ymin: -51.5448 xmax: -65.5519 ymax: -27.2516
## Geodetic CRS:  WGS 84
##                        gml_id regimen id_universidad
## 1 institucion_universitaria.1 Estatal             55
## 2 institucion_universitaria.2 Estatal             89
## 3 institucion_universitaria.3 Estatal           2459
## 4 institucion_universitaria.4 Estatal             38
## 5 institucion_universitaria.5 Estatal             42
##                                           universidad id_ua cueanexo
## 1         Universidad Nacional de Santiago del Estero  3772 79004028
## 2        Universidad Nacional de la Patagonia Austral   789 77802304
## 3                   Universidad Nacional de Río Negro  3377 76203506
## 4                        Universidad Nacional de Cuyo   184 76201503
## 5 Universidad Nacional de la Patagonia San Juan Bosco   874 72602414
##                                unidad_academica                     niveles
## 1                     Tucuman - Villa Quinteros                    Pregrado
## 2                   UNIDAD ACADEMICA RIO TURBIO            Pregrado - Grado
## 3                       El Bolsón - Sede Andina Pregrado - Grado - Posgrado
## 4                            Instituto Balseiro            Grado - Posgrado
## 5 Facultad de Ciencias Económicas - Sede Esquel            Pregrado - Grado
##                                        domicilio codigo_postal
## 1                     9 de Julio y Florida S/N            4145
## 2             AV. DE LOS MINEROS s/n 1 Güer Aike          9407
## 3                              San Martín 2650            8430
## 4 Ctro. Atómico Bariloche-Av. E. Bustillo 9500            8400
## 5                  Ruta Nacional 259 - km 4 sn            9200
##                 localidad  provincia   latitud  longitud
## 1                Rio Seco    Tucumán -27.25163 -65.55186
## 2               El Turbio Santa Cruz -51.54478 -72.34251
## 3               El Bolson  Río Negro -41.96543 -71.53616
## 4 San Carlos De Bariloche  Río Negro -41.11369 -71.41412
## 5                  Esquel     Chubut -42.93108 -71.36425
##                        web                  the_geom
## 1 https://www.unse.edu.ar/ POINT (-65.5519 -27.2516)
## 2  http://www.unpa.edu.ar/ POINT (-72.3425 -51.5448)
## 3 https://www.unrn.edu.ar/ POINT (-71.5362 -41.9654)
## 4            www.ib.edu.ar POINT (-71.4141 -41.1137)
## 5           www.unp.edu.ar POINT (-71.3643 -42.9311)

Mapa de UU con leaflet

leaflet()%>%
  addProviderTiles(providers$OpenStreetMap)%>%
  addMarkers(data = universidades)

cantidad de Universidades

universidades$id_universidad <- factor(universidades$id_universidad)
nlevels(universidades$id_universidad)
## [1] 133