https://www.nps.gov/yell/planyourvisit/utms.htm
suppressPackageStartupMessages( library(knitr) )
Original Data
| POI | LON | LAT |
|---|---|---|
| Center of the Park | -110 30 03.93 (Long) | 44 36 53.25 (Lat) |
| Old Faithful | -110 49 41.59 (Long) | 44 27 37.31 (Lat) |
| Mammoth Hot Springs | -110 42 03.37 (Long) | 44 58 34.79 (Lat) |
| East Entrance | -110 00 13.80 (Long) | 44 29 18.42 (Lat) |
| North Entrance | -110 42 31.32 (Long) | 45 01 46.39 (Lat) |
| Northeast Entrance | -110 00 04.62 (Long) | 45 00 12.09 (Lat) |
| South Entrance | -110 39 52.83 (Long) | 44 07 56.97 (Lat) |
| West Entrance | -111 05 49.87 (Long) | 44 39 30.27 (Lat) |
| POI | LON | LAT |
|---|---|---|
| Center of Park | -110.5011 | 44.61479 |
| Old Faithful | -110.8282 | 44.46036 |
| Mammoth Hot Springs | -110.7009 | 44.97633 |
| East Entrance | -110.0038 | 44.48845 |
| North Entrance | -110.7087 | 45.02955 |
| Northeast Entrance | -110.0013 | 45.00336 |
| South Entrance | -110.6647 | 44.13249 |
| West Entrance | -111.0972 | 44.65841 |
suppressPackageStartupMessages( library(leaflet) )
poi %>%
leaflet() %>%
addTiles() %>%
addMarkers(popup=poi$POI)
## Assuming "LON" and "LAT" are longitude and latitude, respectively