不使用 hchart() 的 Highcharter 堆叠列分组

Question

我正在尝试使用 Highcharter 创建带有分组的堆叠条形图，并且需要在不使用 hchart() 函数的情况下创建它。我有以下代码（hchart() 部分有效）。

data <- data.frame(
  building = c("Building A", "Building A", "Building B", "Building B"),
  type = c("Rent", "Owned"),
  measure = c(100, 35, 124, 150),
  measure_target = c(95, 20, 122, 145)
)

# This works
hchart(data, "column", hcaes(x = "building", y = "measure", group = "type")) %>%
  hc_plotOptions(column = list(stacking = "normal"))

# How do we go from the above, to something like this?
highchart() %>%
  hc_xAxis(categories = data$building) %>%
  hc_add_series(type = "column", data = data$measure) %>%
  hc_plotOptions(column = list(stacking = "normal"))

预期输出如下。这样做的最终目标是添加堆叠条，并在其后添加另一个 hc_add_series，这将在 measure_target 列中添加一系列点（因此比较实际值与目标值）。

我需要类似这样的东西：

除了两个堆叠条和一条目标线外，类似于：

Answer 1

是这样的吗？

library(highcharter)
library(dplyr)

data <- data.frame(
  building = c("Building A", "Building A", "Building B", "Building B"),
  type = c("Rent", "Owned"),
  measure = c(100, 35, 124, 150),
  measure_target = c(95, 20, 122, 145)
)

data_lst <- data %>% 
  group_by(type) %>% 
  do(data = list_parse2(.[, c('building', 'measure')])) %>% 
  rename(name = type) %>% 
  mutate(type = 'column') %>% 
  list_parse()


data_lst2 <- data %>% 
  group_by(type) %>% 
  do(data = list_parse2(.[, c('building', 'measure_target')])) %>% 
  rename(name = type) %>% 
  mutate(type = 'scatter') %>% 
  list_parse()


highchart() %>%
  hc_xAxis(categories = data$building) %>%
  hc_add_series_list(data_lst)%>%
  hc_add_series_list(data_lst2)%>%
  hc_plotOptions(series=list(stacking='normal'))

不使用 hchart() 的 Highcharter 堆叠列分组

Highcharter stacked column groupings not using hchart()

r

shiny

r-highcharter