highcharter example UK MAP

highcharter.R

library(highcharter)
library(dplyr)

mapdata <- get_data_from_map(download_map_data("countries/gb/gb-all"))

set.seed(1234)

data_fake <- mapdata %>% 
    select(code = `hc-a2`) %>% 
    mutate(value = 1e5 * abs(rt(nrow(.), df = 10)))

hcmap("countries/gb/gb-all", data = data_fake, value = "value",
      joinBy = c("hc-a2", "code"), name = "Fake data",
      dataLabels = list(enabled = TRUE, format = '{point.name}'),
      borderColor = "#FAFAFA", borderWidth = 0.1,
      tooltip = list(valueDecimals = 0, valuePrefix = "£", valueSuffix = " GBP"))