Визуализируйте пузыри на карте, используя hc_add_series_map() вместо hcmap()

Я пытаюсь визуализировать карту пузырей, используя highcharter.

Я сделал это отлично, используя этот код

library(highcharter)
library(tidyverse)

hcmap("custom/africa") %>%
hc_add_series(data = fake_data, type = "mapbubble", maxSize = '10%', color = 
"Red", showInLegend = FALSE) %>% 
hc_legend(enabled = FALSE)  

Мои данные

> dput(fake_data)
structure(list(country = c("DZ", "CD", "ZA", "TZ"), lat = c(28.033886, 
-4.038333, -30.559482, -6.369028), lon = c(1.659626, 21.758664, 
22.937506, 34.888822), name = c("Algeria", "Congo, Dem. Rep", 
"South Africa", "Tanzania"), z = c(20, 5, 10, 1)), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -4L), spec = 
structure(list(
cols = list(country = structure(list(), class = c("collector_character", 
"collector")), lat = structure(list(), class = c("collector_double", 
"collector")), lon = structure(list(), class = c("collector_double", 
"collector")), name = structure(list(), class = c("collector_character", 
"collector")), z = structure(list(), class = c("collector_double", 
"collector"))), default = structure(list(), class = c("collector_guess", 
"collector")), skip = 1), class = "col_spec"))

Внешние геоданные для Африки изначально поступают из этого источника и используются с hcmap().

Но я превращаю его в RDS и использую локально. Доступно здесь.

Моя проблема в том, что я не могу использовать свой код и внешние данные из-за ограничений корпоративной ИТ-безопасности. Я не могу развернуть этот код с помощью Shiny/RMarkdown на Connect, он заблокирован.

Итак, мое решение в настоящее время

Используйте те же данные в формате RDS

africa_map_data <- readRDS("africa_map_data.RDS")

И используйте hc_add_series_map() с локальными данными вместо hcmap().

highchart() %>%
hc_add_series_map(
map = africa_map_data,
df = fake_data,
value = "z",
joinBy = c("hc-a2", "country"),
type = "mapbubble",
maxSize = '10%',
color = "Red"
)

Но это плохо работает, я получаю беспорядок.

Как создать пузырьковую карту с помощью hc_add_series_map() (или любым другим способом) без «hcmap» и подтягивания внешних данных.

Спасибо!