Plotting maps using leaflet

library(leaflet)
my_map <- leaflet() %>% addTiles() %>% addMarkers(lat=39.9526,lng=-75.1652,
                                        popup="Philadelphia")
my_map