New York

This map highlights few tourist attractions in New York city and gives a little preview of the places.

library(leaflet)

NYLatLong <- data.frame(
  lat = c(40.6893201, 40.7586585, 40.7810343, 40.750504, 40.7106852),
  lng = c(-74.0435622, -73.985264, -73.9731926, -73.993439, -74.0129308))

NYSites <- c(
  "<a href= 'https://www.google.com/maps/@40.6893201,-74.0435622,3a,75y,253.31h,106.68t/data=!3m7!1e1!3m5!1sjCn3uBjt7Mb7KwCgy4bSyA!2e0!6s%2F%2Fgeo3.ggpht.com%2Fcbk%3Fpanoid%3DjCn3uBjt7Mb7KwCgy4bSyA%26output%3Dthumbnail%26cb_client%3Dmaps_sv.tactile.gps%26thumb%3D2%26w%3D203%26h%3D100%26yaw%3D263.625%26pitch%3D-21.854166%26thumbfov%3D100!7i13312!8i6656' >Statue of Liberty</a>",
  "<a href= 'https://www.google.com/maps/@40.7586585,-73.985264,3a,75y,200h,90t/data=!3m7!1e1!3m5!1sEgojAu8v5l89sPTaX6W9cQ!2e0!6s%2F%2Fgeo1.ggpht.com%2Fcbk%3Fpanoid%3DEgojAu8v5l89sPTaX6W9cQ%26output%3Dthumbnail%26cb_client%3Dmaps_sv.tactile.gps%26thumb%3D2%26w%3D203%26h%3D100%26yaw%3D200.76607%26pitch%3D-18.326193%26thumbfov%3D100!7i13312!8i6656' >Times Square</a>",
  "<a href= 'https://www.google.com/maps/@40.7810343,-73.9731926,3a,75y,120.42h,99.73t/data=!3m6!1e1!3m4!1sA7NNGpdOkD9pLMrSsYPu5w!2e0!7i13312!8i6656' >American Museum of Natural History</a>",
  "<a href= 'https://www.google.com/maps/@40.750504,-73.993439,3a,75y,187.76h,87.75t/data=!3m8!1e1!3m6!1s-8y_cm_vJBlU%2FVNU9Mz_3ZGI%2FAAAAAAAAOlQ%2F7-ds-KsizGo6fpFVH35d3fPh_rMjXHKbgCJkC!2e4!3e11!6s%2F%2Flh3.googleusercontent.com%2F-8y_cm_vJBlU%2FVNU9Mz_3ZGI%2FAAAAAAAAOlQ%2F7-ds-KsizGo6fpFVH35d3fPh_rMjXHKbgCJkC%2Fw203-h100-k-no-pi0-ya333.87222-ro-0-fo100%2F!7i7168!8i3584' >Madison Square Garden</a>",
  "<a href= 'https://www.google.com/maps/@40.7106852,-74.0129308,3a,75y,327.62h,73.42t/data=!3m8!1e1!3m6!1s-KJHrNAPQdIA%2FWI_ncPz9KMI%2FAAAAAAAAguU%2FdZEfBS4korMuI5WGZzTnA-w0H0mEhx2wgCLIB!2e4!3e11!6s%2F%2Flh4.googleusercontent.com%2F-KJHrNAPQdIA%2FWI_ncPz9KMI%2FAAAAAAAAguU%2FdZEfBS4korMuI5WGZzTnA-w0H0mEhx2wgCLIB%2Fw203-h100-k-no-pi8.869072-ya151.16438-ro4.73051-fo100%2F!7i7776!8i3888' >9/11 Memorial</a>"
)

NYLatLong %>% 
  leaflet() %>%
  addTiles() %>%
  addMarkers(popup = NYSites)