historical

# Load library
library(leaflet)

# Sample data with lat/lng
data <- data.frame(
  name = c("Ghana", "Kenya", "Uganda"),
  lat = c(7.9465, -1.2921, 1.3733),
  lng = c(-1.0232, 36.8219, 32.2903)
)

# Create interactive map
leaflet(data) %>%
  addTiles() %>%
  addMarkers(~lng, ~lat, label = ~name)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.