Детализация карты города / округа США из штатов с использованием highcharter

У меня есть два набора данных df_state и df_city.

df_state имеет суммированное числовое значение (net_value_x).

df_city имеет разбивку числового значения (value_x) на уровне города

Это всего лишь образец для штата Техас:

df_state:

state_abb, net_value_x
.
.
TX        18.94
.
.

df_city:

state_abb, city, value_x
.
.
TX        Dallas   14
TX        Houston  2
TX        Austin   2.94
.
.

Это код, который я использовал для построения графика на уровне состояния с использованием функции hcmap из highcharter.

hcmap("countries/us/us-all", data = df_state, value = "net_value_x",
  joinBy = c("hc-a2", "code"), name = "net_value_x",
  dataLabels = list(enabled = TRUE, format = "{point.name}"),
  borderColor = "#FAFAFA", borderWidth = 0.1,
  tooltip = list(valueDecimals = 2))

Это карта, которую я получил. Парящие образцы данных для Техаса.

введите здесь описание изображения

Что мне нужно, так это глубже изучить это на уровне города. Также я могу получить данные на уровне округа в будущем.

Я визуализирую что-то подобное в ссылке: подробный анализ диаграммы


r maps highcharts r-highcharter
person Harish    schedule 21.02.2018    source источник
comment
Я мало что знаю о R, но я подготовил пример того, как это можно сделать в чистом JS: jsfiddle. net / BlackLabel / Lkn7fbpf Может, поможет.   -  person Kamil Kulig    schedule 23.02.2018
comment
Вы нашли на это ответ ??   -  person firmo23    schedule 28.02.2019

Ответы (1)


arrow_upward
0
arrow_downward

Хотя функция детализации в highcharter полезна, когда у вас есть данные в каждом состоянии, потребуется загрузить карту для каждого базового состояния при рендеринге. Подход, который я использовал, состоит в том, чтобы по существу переключаться между построением карты штата и карты округа следующим образом.

## Library
library(shiny)
library(shinyjs)
library(dplyr)
library(highcharter)
library(stringr)

## Load maps at start for speed
maps <- sapply(
  X = c("us-all", "us-tx-all"),
  simplify = FALSE,
  FUN = function(x) { highcharter::download_map_data(paste0("countries/us/", x)) }
)

ui <- shiny::fluidPage(
  shinyjs::useShinyjs(),
  highcharter::highchartOutput(outputId = "map"),
  shiny::uiOutput(outputId = "ui")
)

server <- function(input, output, session) {
  ## USA map with just TX as example
  state_map <- shiny::reactive({
    highcharter::highchart() %>%
      highcharter::hc_add_series_map(
        map = maps[["us-all"]],
        df = data.frame(state_abbr = c("TX"), y = c(10)),
        joinBy = c("postal-code", "state_abbr"),
        value = "y"
      ) %>%
      highcharter::hc_plotOptions(
        series = list(
          allowPointSelect = TRUE,
          events = list(
            click = htmlwidgets::JS(
              "function(event) {
                 Shiny.setInputValue(
                   'geo_click', 
                   event.point.state_abbr, 
                   {priority: 'event'}
                 );
              }"
            )
          )
        )
      )
  })

  ## County map
  county_map <- shiny::reactive({
    highcharter::highchart() %>%
      highcharter::hc_add_series_map(
        map = maps[[paste0("us-", stringr::str_to_lower(input$geo_click), "-all")]],
        df = data.frame(city = c("Gray", "Leon", "Lamb", "Duval"), y = c(1, 4, 2, 3)),
        joinBy = c("name", "city"),
        value = "y"
      )
  })

  ## Set to state map at outset
  output$map <- highcharter::renderHighchart({ state_map() })

  ## If state clicked, add button to go back to state map
  output$ui <- shiny::renderUI({
    if (!is.null(input$geo_click)) {
      shiny::actionButton(
        inputId = "geo_button",
        label = "Return to USA Map"
      )
    }
  })

  ## If button clicked, reset input, hide button, and go back to state map
  shiny::observeEvent(
    eventExpr = input$geo_button,
    handlerExpr = {
      output$map <- highcharter::renderHighchart({ state_map() })
      shinyjs::hide(id = "geo_button")
    }
  )

  ## If state clicked, go to county map and show button
  shiny::observeEvent(
    eventExpr = input$geo_click,
    handlerExpr = {
      output$map <- highcharter::renderHighchart({ county_map() })
      shinyjs::show(id = "geo_button")
    }
  )
}

shiny::shinyApp(ui = ui, server = server)
person Spencer    schedule 20.03.2020