Fuente de datos: https://mapas.mides.gub.uy/
Visualización para #30DayMapChallenge - día 4: hexágonos
Solo se incluye la Universidad de la República.
library(tidyverse)
library(foreign)
library(leaflet)
#install.packages("leaflethex")
library(leaflethex)
t<- read.dbf("ofertadegradoudelar.dbf") %>%
mutate(lat=as.character(LAT)) %>%
mutate(lng=as.character(LON)) %>%
mutate(lat=as.numeric(lat)) %>%
mutate(lng=as.numeric(lng))
leaflet(t) %>%
addTiles() %>%
addHexbin (lowEndColor = "red",
highEndColor = "darkred") %>%
addLabelOnlyMarkers(lat=t$lat,
lng=t$lng,
label=t$NOMBRE,
labelOptions=labelOptions(noHide=F,
textOnly=T))