Untitled

My Cool Map

africa_data_points <- data.frame(
  lat = rnorm(26, mean = 6.9, sd = 10),
  lng = rnorm(26, mean = 17.7, sd = 10),
  size = runif(26, 5, 10),
  label = letters
)

library(leaflet)
leaflet(data = africa_data_points) %>%
  addProviderTiles("Thunderforest.OpenCycleMap") %>%
  addCircleMarkers(popup = ~label, radius = ~size)

## Assuming 'lng' and 'lat' are longitude and latitude, respectively