Я пытаюсь визуализировать пузырьковую карту, используя 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' и извлечения внешних данных.
Спасибо!