SOAN Research Maps

library(ggmap)
library(leaflet)
library(tidyverse) 

programs_only <- read_csv("programs_only.csv")

## Rows: 40 Columns: 20
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (16): Program, Institution, institution_type, liberal_arts, State, Count...
## dbl  (3): ID #.x, Lat, Long
## lgl  (1): est_year
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

leaflet(programs_only) %>%
  addTiles() %>%
  addMarkers(
    lat = ~ Lat, 
    lng = ~ Long, 
    popup = ~Institution)