The wonders of the World

In This project we are going to map the 7 modern wonders of the earth.

library(leaflet)

wow <- data.frame(wonders = c("Chichén Itza", "Christ the Redeemer Statue", "Colosseum", "Taj Mahal", "Great Wall of China", "Petra", "Machu Picchu"),
country=c("Mexico", "Brazil", "Italy", "India", "China", "Jordan", "Peru"),
lat = c(20.6827, -21.048, 41.89, 27.175, 40.6766, 30.3286, -12.8366),
lng = c(-88.5686, -43.2105, 12.4922, 78.0819, 117.23166, 35.4419, -72.5455))

mymap <- wow %>% leaflet() %>% addTiles() %>% addMarkers(popup = paste(wow$wonders, wow$places, sep = ","))
## Assuming "lng" and "lat" are longitude and latitude, respectively
mymap