Developing Data Products- Week 2 Assignment

Locations of the B schools where I have studied

library(leaflet)

## Warning: package 'leaflet' was built under R version 3.4.4

df <- data.frame(lat = c(30.2843,22.6256),
                 lan = c(-97.7378,75.7910),
                 popup = c("McCombs School of Business", "IIM Indore"),
                 col = c("blue", "green"))

df %>%
    leaflet() %>%
    addTiles() %>%
    addCircleMarkers(weight = 25, lat= df$lat, lng=df$lan, popup = df$popup, color = df$col) %>%
    addLegend(labels = df$popup, colors = df$col)