library(leaflet)
## Warning: package 'leaflet' was built under R version 3.5.2
library(dplyr)
## Warning: package 'dplyr' was built under R version 3.5.2
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
univ <-data.frame(
name = c("Bryant University","Central Connecticut University", "Farleigh Dickison University", "Long Island University Brooklyn", "Mt. Saint Mary's University", "Robert Morris University", "Sacred Heart University", "St. Francis College", "Saint Francis University", "Wagner College"),
lat = c(41.921509, 41.693199, 40.775986, 40.690311, 39.680691, 40.519798, 41.221809, 40.694086, 40.507290, 40.615662),
lng = c(-71.533981, -72.765381, -74.434700, -73.980888, -77.349800, -80.217911, -73.241928, -73.994506, -78.640190, -74.096336),
website = c( "<a href='https://www.bryant.edu/'>Bryant University</a>", "<a href='http://www2.ccsu.edu/'>Central Connecticut State University</a>", "<a href='https://www.fdu.edu/' >Farleigh Dickinson University</a>", "<a href='http://liu.edu/Brooklyn' >Long Island University Brooklyn</a>", "<a href ='https://www.msmary.edu/' >Mt. Saint Mary's University</a>", "<a href='https://www.rmu.edu/' >Robert Morris University</a>", "<a href='https://www.sacredheart.edu/' >Sacred Heart University</a>", "<a href='https://www.sfc.edu/' >St. Francis College</a>", "<a href='https://www.francis.edu/' >Saint Francis University</a>", "<a href='https://wagner.edu/' >Wagner College</a>"))
bryantIcon<-makeIcon(
iconUrl ="https://upload.wikimedia.org/wikipedia/en/thumb/c/ca/Bryant_Bulldogs_logo.svg/250px-Bryant_Bulldogs_logo.svg.png",
iconWidth=60*215/230,
iconHeight=31,
iconAnchorX=31*215/230/2,
iconAnchorY=16)
centralconnecticutIcon<-makeIcon(
iconUrl= "https://upload.wikimedia.org/wikipedia/en/thumb/9/90/Central_Connecticut_Blue_Devils_logo.svg/250px-Central_Connecticut_Blue_Devils_logo.svg.png",
iconWidth=60*215/230,
iconHeight=31,
iconAnchorX=31*215/230/2,
iconAnchorY=16)
FDIcon<-makeIcon(
iconUrl= "https://upload.wikimedia.org/wikipedia/en/7/77/FDU_Knights_logo.svg",
iconWidth=60*215/230,
iconHeight=31,
iconAnchorX=31*215/230/2,
iconAnchorY=16)
LIUIcon<-makeIcon(
iconUrl= "https://upload.wikimedia.org/wikipedia/en/3/3b/LIU_Brooklyn_Blackbirds_logo.svg",
iconWidth=60*215/230,
iconHeight=31,
iconAnchorX=31*215/230/2,
iconAnchorY=16)
MSMIcon<-makeIcon(
iconUrl= "https://upload.wikimedia.org/wikipedia/en/f/f3/MSMMountaineers.png",
iconWidth=60*215/230,
iconHeight=31,
iconAnchorX=31*215/230/2,
iconAnchorY=16)
RMIcon<-makeIcon(
iconUrl= "https://upload.wikimedia.org/wikipedia/en/a/af/Robert_Morris_Colonials_logo.svg",
iconWidth=60*215/230,
iconHeight=31,
iconAnchorX=31*215/230/2,
iconAnchorY=16)
SHIcon<-makeIcon(
iconUrl="https://upload.wikimedia.org/wikipedia/commons/c/c4/Sacred_Heart_Pioneers_logo.svg",
iconWidth=60*215/230,
iconHeight=31,
iconAnchorX=31*215/230/2,
iconAnchorY=16)
SFIcon<-makeIcon(
iconUrl="https://upload.wikimedia.org/wikipedia/en/9/93/StFrancisBrooklynTerriers.png",
iconWidth=60*215/230,
iconHeight=31,
iconAnchorX=31*215/230/2,
iconAnchorY=16)
SFUIcon<-makeIcon(
iconUrl="https://upload.wikimedia.org/wikipedia/commons/1/10/Saint_Francis_Red_Flash_logo.svg",
iconWidth=60*215/230,
iconHeight=31,
iconAnchorX=31*215/230/2,
iconAnchorY=16)
WCIcon<-makeIcon(
iconUrl="https://upload.wikimedia.org/wikipedia/en/9/96/Wagner_Seahawks_logo.png",
iconWidth=60*215/230,
iconHeight=31,
iconAnchorX=31*215/230/2,
iconAnchorY=16)
iconSet <- iconList(bryantIcon, centralconnecticutIcon, FDIcon, LIUIcon, MSMIcon, RMIcon, SHIcon, SFIcon, SFUIcon, WCIcon)
univ %>%
leaflet() %>%
addTiles() %>%
addMarkers(icon = iconSet, popup=univ$website)
## Assuming "lng" and "lat" are longitude and latitude, respectively
univ
## name lat lng
## 1 Bryant University 41.92151 -71.53398
## 2 Central Connecticut University 41.69320 -72.76538
## 3 Farleigh Dickison University 40.77599 -74.43470
## 4 Long Island University Brooklyn 40.69031 -73.98089
## 5 Mt. Saint Mary's University 39.68069 -77.34980
## 6 Robert Morris University 40.51980 -80.21791
## 7 Sacred Heart University 41.22181 -73.24193
## 8 St. Francis College 40.69409 -73.99451
## 9 Saint Francis University 40.50729 -78.64019
## 10 Wagner College 40.61566 -74.09634
## website
## 1 <a href='https://www.bryant.edu/'>Bryant University</a>
## 2 <a href='http://www2.ccsu.edu/'>Central Connecticut State University</a>
## 3 <a href='https://www.fdu.edu/' >Farleigh Dickinson University</a>
## 4 <a href='http://liu.edu/Brooklyn' >Long Island University Brooklyn</a>
## 5 <a href ='https://www.msmary.edu/' >Mt. Saint Mary's University</a>
## 6 <a href='https://www.rmu.edu/' >Robert Morris University</a>
## 7 <a href='https://www.sacredheart.edu/' >Sacred Heart University</a>
## 8 <a href='https://www.sfc.edu/' >St. Francis College</a>
## 9 <a href='https://www.francis.edu/' >Saint Francis University</a>
## 10 <a href='https://wagner.edu/' >Wagner College</a>