6.6 wbstats

library(wbstats)
indicators <- wb_search(pattern = "poverty|unemployment")
# print(indicators)

d <- wb_data(indicator = "MO.INDEX.HDEV.XQ",
             start_date = 2011, end_date = 2011)
print(head(d))

6.6.1 with mapview

library(rnaturalearth)
library(mapview)
map <- ne_countries(continent = "Africa", returnclass = "sf")
map <- dplyr::left_join(map, d, by = c("iso_a3" = "iso3c"))
mapview(map, zcol = "MO.INDEX.HDEV.XQ")