Я пытаюсь создать столбец с накоплением столбцов, который имеет детализацию (используя пакет highcharter) в R studio - PullRequest
0 голосов
/ 18 февраля 2019

Мне удалось создать столбчатый график с накоплением с разверткой на RStudio, но в настоящее время мне удалось только выяснить (используя онлайн-пример), как создать столбчатый столбчатый график, но где каждый столбец идет к одному и тому жевторичный график детализации.

Я пытаюсь создать столбчатую диаграмму с накоплением с элементом детализации, ориентированным на столбцы, на вторичную диаграмму (каждый столбец / стек будут переходить на другой график детализации,но у каждого сегмента в каждом баре не было бы разного уровня детализации - если это имеет смысл).

В настоящее время в нем только 2 бара, но на самом деле я хочу гораздо большего.

Спасибо!

hc <- highchart() %>%
  hc_chart(
    type = "column",
    events = list(
      drilldown = JS(
        "function(e) {
        if (!e.seriesOptions) {
        var chart = this;
        chart.addSingleSeriesAsDrilldown(e.point, {
        color: Highcharts.getOptions().colors[1],
        name: 'Criminal attacks',
        data: [
        ['PAYE', 60],
        ['SA', 65]
        ]
        });
        chart.addSingleSeriesAsDrilldown(e.point, {
        color: Highcharts.getOptions().colors[2],
        name: 'Avoidance',
        data: [
        ['PAYE', 4],
        ['SA', 25]
        ]
        });
        chart.addSingleSeriesAsDrilldown(e.point, {
        color: Highcharts.getOptions().colors[3],
        name: 'FTTRC',
        data: [
        ['PAYE', 10],
        ['SA', 6]
        ]
        });
chart.addSingleSeriesAsDrilldown(e.point, {
        color: Highcharts.getOptions().colors[4],
        name: 'Error',
        data: [
        ['PAYE', 20],
        ['SA', 20]
        ]
        });
chart.addSingleSeriesAsDrilldown(e.point, {
        color: Highcharts.getOptions().colors[5],
        name: 'Non-payment',
        data: [
        ['PAYE', 5],
        ['SA', 10]
        ]
        });
chart.addSingleSeriesAsDrilldown(e.point, {
        color: Highcharts.getOptions().colors[6],
        name: 'Legal interpretation',
        data: [
        ['PAYE', 0],
        ['SA', 0]
        ]
        });
chart.addSingleSeriesAsDrilldown(e.point, {
        color: Highcharts.getOptions().colors[7],
        name: 'Hidden economy',
        data: [
        ['PAYE', 10],
        ['SA', 5]
        ]
        });
chart.addSingleSeriesAsDrilldown(e.point, {
        color: Highcharts.getOptions().colors[8],
        name: 'Evasion',
        data: [
        ['PAYE', 5],
        ['SA', 5]
        ]
        });
        chart.applyDrilldown();
        }
        }"
      )
      )
      ) %>%
  hc_title(text = "Tax Assured - Payments") %>%
  hc_xAxis(type = "category") %>%
  hc_plotOptions(series = list(stacking = "normal")) %>%
  hc_yAxis(max = 160) %>%
  hc_add_series(
    name = "Small business", 
    data = list(
      list(name = "PAYE", y = 40, drilldown = T), 
      list(name = "SA", y = 35, drilldown = T)
    )
  ) %>%
  hc_add_series(
    name = "Mid-size business",
    data = list(
      list(name = "PAYE", y = 60, drilldown = T), 
      list(name = "SA", y = 65, drilldown = T)
    )
  ) %>%
  hc_add_series(
    name = "Large business",
    data = list(
      list(name = "PAYE", y = 20, drilldown = T), 
      list(name = "SA", y = 20, drilldown = T)
    )
  ) %>%
  hc_add_series(
    name = "Individuals",
    data = list(
      list(name = "PAYE", y = 20, drilldown = T), 
      list(name = "SA", y = 20, drilldown = T)
    )
  ) %>%
  hc_add_series(
    name = "Wealthy individuals",
    data = list(
      list(name = "PAYE", y = 20, drilldown = T), 
      list(name = "SA", y = 20, drilldown = T)
    )
  ) %>%
  hc_add_series(
    name = "No segmentation",
    data = list(
      list(name = "PAYE", y = 0, drilldown = T), 
      list(name = "SA", y = 0, drilldown = T)
    )
  ) %>%
  hc_drilldown(
    series = list()
  )
hc
...