My global work journey so far

This map shows where I’ve worked around the world.

# Load the necessary packages
library(leaflet)
library(dplyr) # For piping (%>%)

# Define marker locations (longitude, latitude and labels)
marker_data <- data.frame(
  lat = c(45.59297771297339, 55.681713324066465, 51.52471937772375, 42.05801328251825, 55.6889517701217),
  lng = c(9.24886119674974, 12.603529010703115, -0.13402937437672585, -87.67588813256927, 12.578362483550524),
  label = c("ARPA", "RDA", "UCL", "NU", "SMK")
)

# Create the map
m <- leaflet() %>%
  addTiles() %>%
  addMarkers(data = marker_data,
             lng = ~lng, lat = ~lat,
             popup = ~label,
             clusterOptions = TRUE
  )

# View the map
m