Developing Data Products Week 2 Assignment

John Joseph R. Naputo

August 12, 2019

Instructions

Create a web page using R Markdown that features a map created with Leaflet.

Host your webpage on either GitHub Pages, RPubs, or NeoCities.

Your webpage must contain the date that you created the document, and it must contain a map created with Leaflet. We would love to see you show off your creativity!

Submission

University Athletic Association of the Philippines (UAAP) Teams

The University Athletic Association of the Philippines (UAAP) is an athletic association of eight Metro Manila universities in the Philippines. The eight member schools are Adamson University (AdU), Ateneo de Manila University (AdMU), De La Salle University (DLSU), Far Eastern University (FEU), National University (NU), University of the East (UE), University of the Philippines Diliman (UP), and University of Santo Tomas (UST). Varsity teams from these universities compete annually in the league’s 28 events from 15 sports to vie for the overall championship title, namely, badminton, baseball, basketball, beach volleyball, chess, fencing, football, judo, softball, swimming, table tennis, taekwondo, tennis, track and field, and volleyball.

library(knitr)
library(leaflet)
library(dplyr)

map <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lat = 14.6095, lng = 120.9898, popup = "University of Santo Tomas") %>%
  addMarkers(lat = 14.6043, lng = 120.9946, popup = "National University") %>%
  addMarkers(lat = 14.6039, lng = 120.9864, popup = "Far Eastern University") %>%
  addMarkers(lat = 14.6017, lng = 120.9889, popup = "University of the East") %>%
  addMarkers(lat = 14.5647, lng = 120.9932, popup = "De La Salle University") %>%
  addMarkers(lat = 14.5866, lng = 120.9860, popup = "Adamson University") %>%
  addMarkers(lat = 14.6395, lng = 121.0781, popup = "Ateneo de Manila University") %>%
  addMarkers(lat = 14.6538, lng = 121.0685, popup = "University of the Philippines")
  
map