Как указать hc_plotOptions () для определенного уровня (уровней) при использовании функции hctreemap2 в пакете highcharter R - PullRequest
Новая
       29

Как указать hc_plotOptions () для определенного уровня (уровней) при использовании функции hctreemap2 в пакете highcharter R

1 голос
/ 24 апреля 2019

Я пытаюсь настроить древовидную карту с тремя уровнями, используя функцию hctreemap2. Я хотел встроить гиперссылку href, когда пользователь нажимал на самом последнем уровне (уровне).

В отличие от типичного highchart ()%>% hc_add_series (type = "treemap"), представляющего собой плоское древовидное отображение, эта функция hctreemap обеспечивает детализацию до нескольких уровней. Однако коды, которые я скопировал из этого ответа, работали только с однослойными: Гистограмма гиперссылки в Highcharter

Пожалуйста, помогите.

попробовал коды из этого ответа: Гистограмма гиперссылки в Highcharter 

data("GNI2014")

hctreemap2(data = GNI2014,
           group_vars = c("continent",
                          "country"),
           size_var = "population",
           color_var = "GNI",
           layoutAlgorithm = "squarified",
           levelIsConstant = FALSE,
           levels = list(
             list(level = 1, dataLabels = list(enabled = TRUE)),
             list(level = 2, dataLabels = list(enabled = FALSE))
           )) %>%
  hc_legend(FALSE) %>%
  hc_plotOptions(
    series = list(cursor = "pointer",
                  point = list(
                    events = list(
                      click = JS("function () {location.href = 'https://en.wikipedia.org/wiki/' + this.options.country;}")))))

Гиперссылка активируется только при развертывании до самого низкого уровня, или «страны». Однако гиперссылка активируется в тот момент, когда я сверляю.

(Программист начального уровня здесь, и я не могу найти ничего полезного на сайте API: https://api.highcharts.com/highcharts/

data("GNI2014")

hctreemap2(data = GNI2014,
           group_vars = c("continent",
                          "country"),
           size_var = "population",
           color_var = "GNI",
           layoutAlgorithm = "squarified",
           levelIsConstant = FALSE,
           levels = list(
             list(level = 1, dataLabels = list(enabled = TRUE)),
             list(level = 2, dataLabels = list(enabled = FALSE))
           )) %>%
  hc_legend(FALSE) %>%
  hc_plotOptions(
    series = list(cursor = "pointer",
                  point = list(
                    events = list(
                      click = JS("function () {location.href = 'https://en.wikipedia.org/wiki/' + this.options.country;}")))))
...