На основании ваших комментариев вы одобрили, что пытаетесь достичь чего-то вроде этого: https://jsfiddle.net/BlackLabel/43ncukmw/
Здесь у вас есть R-код этой диаграммы:
library(highcharter)
highchart() %>%
hc_plotOptions(series = list(stacking = 'normal')) %>%
hc_yAxis_multiples(
list(min = 0, max = 20),
list(min = 0, max = 16, opposite = TRUE)
) %>%
hc_add_series(data = c(1, 2, 3, 4, 5, 6), type = 'area') %>%
hc_add_series(data = c(10, 10, 10, 10, 10, 10), type = 'area') %>%
hc_add_series(data = c(1, 3, 2, 3, 5, 3), type = 'column', yAxis = 1) %>%
hc_add_series(data = c(2, 3, 2, 3, 2, 3), type = 'column', yAxis = 1)