NYSE ON THE MAP

  library(leaflet)
  
  m <- leaflet() %>%
  addTiles() %>%  
  addMarkers(lng = -74.011322, lat = 40.706913, popup="The NYSE")

  m