Highcharter堆疊列分組不使用hchart（）

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'))