library(leaflet)
library(dplyr)
##
## 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
df<-data.frame(collegename=c("University of Washington", "USC", "Oregon State", "Arizona State", "UCLA", "University of Utah", "University of Arizona", "University of Oregon", "Stanford University", "University of Colorado", "UC Berkley", "Washington State University"),
lat=c(47.656742,34.020700,44.5638,33.4242,34.0689,40.7649,32.2319,44.0448,37.4275,40.0076,37.8719,46.7319),
lng=c(-122.312729,-118.285074,-123.2794,-111.9281,-118.4452,-111.8421,-110.9501,-123.0726, -122.1697,-105.2659,-122.2585,-117.1542),
website= c("<a href='https://www.washington.edu'> The University of Washington </a>", "<a href='https://www.usc.edu'> The University of Southern California</a>", "<a href='https://www.oregonstate.edu/'> Oregon State Univeristy</a>", "<a href='https://www.asu.edu'> Arizona State University </a>", "<a href='http://www.ucla.edu'>The University of California, Los Angeles </a>", "<a href='https://www.utah.edu'> The University of Utah </a>", "<a href='https://www.arizona.edu'> The University of Arizona </a>","<a href='https://www.uoregon.edu'> University of Oregon</a>", "<a href='https://www.stanford.edu'> Stanford University</a>", "<a href ='https://www.colorado.edu'> The University of Colorado Boulder </a>", "<a href ='https://www.berkeley.edu'> The University of California at Berkley </a>", "<a href='https://www.wsu.edu'> Washington State University </a>"))
UW<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/_-1TM_vqq5E1ECjBrkGc2w_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
)
USC<-makeIcon(
iconUrl=("https://ssl.gstatic.com/onebox/media/sports/logos/hOJ-6KZgHX5QjJCepqHHMA_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
OS<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/yRfBxcPyYsr5xQwxK_eryg_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
AS<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/lzSaFVMIfwU_C1bY7eW-Ag_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
UCLA<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/dYK50gR1T8j2X34jIHCNKg_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
UU<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/4YPE-XPl_BOYwEen2dUq6A_96x96.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
UA<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/7UA53v1ZWb-0Pf1GuapMIg_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
UO<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/3hAm47Tasadw7t9cB8K24Q_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
S<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/QCPUdVdCeABAnvDriNl_cg_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
UCB<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/mWyyTHspy3lnbkckaLgqMA_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
UCBerk<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/mRx1yGKx71pLQF3qZ3RFNw_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
WS<-makeIcon(
iconUrl = ("https://ssl.gstatic.com/onebox/media/sports/logos/8dMPvpQkQu92w3DhgrA-gQ_48x48.png"),
iconWidth = 30,
iconHeight = 30,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16
)
iconSet<-iconList(UW, USC,OS,AS,UCLA,UU,UA,UO,S,UCB,UCBerk,WS)
df %>%
leaflet() %>%
addTiles() %>%
setView(lng = -95.7129, lat = 37.0902, zoom = 4) %>%
addMarkers(icon=iconSet, popup = df$website)
## Assuming "lng" and "lat" are longitude and latitude, respectively
df
## collegename lat lng
## 1 University of Washington 47.65674 -122.3127
## 2 USC 34.02070 -118.2851
## 3 Oregon State 44.56380 -123.2794
## 4 Arizona State 33.42420 -111.9281
## 5 UCLA 34.06890 -118.4452
## 6 University of Utah 40.76490 -111.8421
## 7 University of Arizona 32.23190 -110.9501
## 8 University of Oregon 44.04480 -123.0726
## 9 Stanford University 37.42750 -122.1697
## 10 University of Colorado 40.00760 -105.2659
## 11 UC Berkley 37.87190 -122.2585
## 12 Washington State University 46.73190 -117.1542
## website
## 1 <a href='https://www.washington.edu'> The University of Washington </a>
## 2 <a href='https://www.usc.edu'> The University of Southern California</a>
## 3 <a href='https://www.oregonstate.edu/'> Oregon State Univeristy</a>
## 4 <a href='https://www.asu.edu'> Arizona State University </a>
## 5 <a href='http://www.ucla.edu'>The University of California, Los Angeles </a>
## 6 <a href='https://www.utah.edu'> The University of Utah </a>
## 7 <a href='https://www.arizona.edu'> The University of Arizona </a>
## 8 <a href='https://www.uoregon.edu'> University of Oregon</a>
## 9 <a href='https://www.stanford.edu'> Stanford University</a>
## 10 <a href ='https://www.colorado.edu'> The University of Colorado Boulder </a>
## 11 <a href ='https://www.berkeley.edu'> The University of California at Berkley </a>
## 12 <a href='https://www.wsu.edu'> Washington State University </a>