Top 10 Natural Attractions in the U.S.

Introduction

I wanted to show the top 10 best natural tourist attractions in the United States.

map<- leaflet() %>%
  addTiles() %>%
  addMarkers(lng=-112.121836, lat=36.055261, 
             label="The Grand Canyon",
             labelOptions = labelOptions(noHide= T, textsize = "9px",direction= "bottom", style = list ("color" = "orange")))%>%
  addMarkers(lng= -119.539635, lat= 37.864956,
             label= "Yosemite National Park",
             labelOptions = labelOptions(noHide= T, textsize = "9px", direction= "left", style = list("color"= "purple")))%>%
  addMarkers(lng= -124.004744, lat= 41.212896,
             label= "Redwood National and State Parks",
             labelOptions= labelOptions(noHide= T, textsize = "9px", direction= "left", style = list("color"= "red")))%>%
  addMarkers(lng= -151.191021, lat= 63.113085,
             label= "Denali National Park", 
             labelOptions= labelOptions(noHide= T, textsize = "9px", style = list("color" = "black")))%>%
  addMarkers(lng= -79.064332, lat= 43.083574,
             label= "Niagra Falls", 
             labelOptions=labelOptions(noHide= T, textsize = "9px",direction= "top", style=list("color"= "blue")))%>%
  addMarkers(lng=-110.590062, lat=44.429507,
             label="Yellowstone National Park",
             labelOptions= labelOptions(noHide = T, textsize = "9px", direction= "right", style= list("color" = "yellow")))%>%
  addMarkers(lng= -86.099932, lat= 37.186843, 
             label= "Kentucky Mammoth Cave",
             labelOptions= labelOptions(noHide= T, textsize="9px",direction= "right", style = list("color" = "grey")))%>%
  addMarkers(lng= -68.273950, lat= 44.344128,
             label= "Acadia National Park",
             labelOptions= labelOptions(noHide = T, textsize = "9px",direction= "right", style = list("color" = "pink")))%>%
  addMarkers(lng= -110.194745, lat= 36.991155,
             label= "Monument Valley",
             labelOptions= labelOptions(noHide = T, textsize= "9px", direction= "right", style = list("color" = "brown")))%>%
  addMarkers(lng= -155.283550, lat= 19.407742,
             label= "Hawaii Kilauea Volcano",
             labelOptions= labelOptions(noHide = T, textsize = "9px", style = list("color" = "green")))

  
map

Conclusion

It obviously differs from person to person in terms of what the best natural attractions in the U.S. are, but these ten were the general consensus around the board.