R - Highcharter, Как избежать увеличения отступа метки оси Y?

Question

Есть ли способ избежать растущего отступа метки оси y с каждым последующим графиком?

library(xts)
library(highcharter)

dates = seq(as.Date("2012-01-01"), as.Date("2012-01-04"), by="day")
x1 = xts(c(2,3,1,5), dates)
x2 = xts(c(1,1.5,2,1), dates)

highchart(type = "stock") %>%
   hc_yAxis_multiples(
     list(top = "0%", height = "60%", title = list(text = "Var1")),
     list(top = "60%", height = "40%", title = list(text = "Var2"))) %>%
   hc_add_series(x1, yAxis=0, compare="percent", color="blue") %>%
   hc_add_series(x2, yAxis=1, color="black")

Созданный график:

Answer 1

Это можно исправить, вручную установив offset второй оси Y. Из справочника API:

смещение: число

Расстояние в пикселях от области графика до линии оси. Положительное смещение перемещает ось с ее линией, метками и метками от области графика. Обычно используется, когда две или более осей отображаются на одной стороне графика. Для нескольких осей смещение динамически регулируется, чтобы избежать столкновения, это можно изменить, установив смещение явно.

По умолчанию 0.

highchart(type = "stock") %>%
  hc_yAxis_multiples(
    list(top = "0%", height = "60%", title = list(text = "Var1")),
    list(top = "60%", height = "40%", offset = 0, title = list(text = "Var2"))) %>%
  hc_add_series(x1, yAxis=0, compare="percent", color="blue") %>%
  hc_add_series(x2, yAxis=1, color="black")