Map created on Tuesday, April 14th, 2020.
mountains <- data.frame(
mountain = c("Mount Everest", "K2", "Kangchenjunga", "Lhotse", "Makalu", "Cho Oyu",
"Dhaulagiri I", "Manaslu", "Nanga Parbat", "Annapurna I"),
height = c(8848, 8611, 8586, 8516, 8485, 8188, 8167, 8163, 8126, 8091),
lat = c(27.5917, 35.5253, 27.4212, 27.5742, 27.5323, 28.0539, 28.4148, 28.3300, 35.1414, 28.3544),
lng = c(86.5531, 76.3048, 88.0851, 86.5559, 87.3939, 86.3939, 83.2935, 84.3335, 74.3521, 83.4913),
rank = c(1:10)
)
mymap = leaflet() %>%
addTiles() %>%
addMarkers(lat = mountains$lat,
lng = mountains$lng,
popup = paste(mountains$mountain,"<br>",mountains$height,"m","<br>","Rank:",mountains$rank)
)
mymap