In this map you will find in green the “New Wonders of the World”, while in blue you will see the “Wonders of the Ancient World”. The data was taken from https://www.foxworldtravel.com/wonders-of-the-world-google-earth-scavenger-hunt/.
library(leaflet)
df <- read.csv("data.csv")
df %>% leaflet() %>%
addTiles() %>%
addCircleMarkers(
lat = df$lat_num[8:14],
lng = df$long_num[8:14],
color = "#0F0",
popup = paste(df$ï..name[8:14], "<br>", df$type[8:14])
) %>%
addCircleMarkers(
lat = df$lat_num[1:7],
lng = df$long_num[1:7],
color = "#00F",
popup = paste(df$ï..name[1:7], "<br>", df$type[1:7]),
)