Developing Data Products

Executive Summary

I was tasked with creating a Leaflet map and host it on either GitHub, RPubs or NeoCities. I’m most familular with RPubs so that’s what I’ll be using for the host.

Library used

library(leaflet)

Leaflet Map

library(leaflet)
new_map <- leaflet() %>%
        addTiles()
new_map

Data Frame

lat <- c(36.8449018, 37.3284564)
lng <- c(-75.9723486, -76.1350232)
popup <- c("Virginia Beach", "Chesapeake Bay(Best Fishing Around)")

Map without popups

df <- data.frame(lat, lng)

df %>%
        leaflet()  %>%
        addTiles()  %>%
        addMarkers()

Map with popups

map_data_frame <- data.frame(lat, lng)
new_map <- new_map %>%
        addMarkers(lat=37.3284564, lng=-76.1350232, popup="Chesapeake Bay (Best Fishing Around)")

map_data_frame <- data.frame(lat, lng)
new_map <- new_map %>%
        addMarkers(lat=36.8449018, lng=-75.9723486, popup="Virginiaa Beach")
new_map

Conclusion

A conclusion wasn’t necessary, I’m just doing all the steps. In conclusion, I can make maps using leaflet.