This page features an interactive map built with the Leaflet package in R, showing 10 iconic world landmarks. Click any marker to learn more!
library(leaflet)
landmarks <- data.frame(
name = c("Eiffel Tower", "Colosseum", "Taj Mahal", "Machu Picchu",
"Sydney Opera House", "Great Wall of China", "Statue of Liberty",
"Sagrada Família", "Christ the Redeemer", "Angkor Wat"),
lat = c(48.8584, 41.8902, 27.1751, -13.1631, -33.8568,
40.4319, 40.6892, 41.4036, -22.9519, 13.4125),
lng = c(2.2945, 12.4922, 78.0422, -72.5450, 151.2153,
116.5704, -74.0445, 2.1744, -43.2105, 103.8670),
country = c("France","Italy","India","Peru","Australia",
"China","USA","Spain","Brazil","Cambodia"),
built = c("1889","70 AD","1653","1450s","1973",
"7th c. BC","1886","1882–now","1931","12th c.")
)
landmarks$popup <- paste0(
"<b>", landmarks$name, "</b><br/>",
"Country: ", landmarks$country, "<br/>",
"Built: ", landmarks$built
)
leaflet(landmarks) %>%
addTiles() %>%
setView(lng = 20, lat = 20, zoom = 2) %>%
addCircleMarkers(
lat = ~lat,
lng = ~lng,
radius = 10,
color = "steelblue",
fillColor = "steelblue",
fillOpacity = 0.8,
popup = ~popup,
label = ~name
)Generated on June 10, 2026