Как мне получить страну как регион?

Я пытаюсь раскрасить карту страны в зависимости от уровня погодных рисков в каждой административной области. Я считаю, что лучше всего это можно сделать на R, хотя мои знания R близки к нулю.

Из этого поста невозможно добавить метки для страны с помощью ggplot, geom_polygon и geom_text, мне удалось запустить код и построить карту рисков для всех стран Африки. Я попытался адаптировать код для своих целей, как показано ниже:

library(sf)
library(ggplot2)

all_districts <- data.frame(region = c("Maseru",
"Butha-Buthe",
"Leribe",
"Berea",
"Mafeteng", 
"Mohale's Hoek", 
"Quthing",
"Qacha's Nek",
"Mokhotlong",
"Thaba-Tseka"),                          
risk = c(4, 4, 2, 1, 2, 4, 1, 3, 1, 2))

table(all_districts$risk)
mapdata_x <- map_data('world') %>% filter(region %in% all_districts$region)
mapdata_x <- mapdata_x %>% left_join(all_districts, by='region')
label_data <- mapdata_x %>% group_by(region) %>% filter(row_number() == 1)

ggplot(mapdata_x, aes (x = long, y = lat, group = group)) +
geom_polygon(aes(fill = factor(risk)), linewidth = 0.25, color = "black") +
scale_fill_manual(values = c("#a6d96a", "#ffffbf", "#fdae61", "#d7191c"),
name = "Risk Level") +
theme(axis.text.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks = element_blank(),
axis.ticks = element_blank(),
axis.title.y = element_blank(),
axis.title.x = element_blank(),
rect = element_blank())+
labs(title = "Weather Risk Levels") +
geom_label_repel(data = label_data,
aes(x = long, y = lat, label = region), size = 3,
max.overlaps = 12)

Мой код не работает на линии

mapdata_x <- map_data('world') %>% filter(region %in% all_districts$region)

Выдает ошибку:

Error in h(simpleError(msg, call)) : 
  error in evaluating the argument 'x' in selecting a method for function '%in%': object 'region' not found.

Как мне это определить, чтобы получить Лесото как регион? Или есть альтернативный способ добиться этого.