Highcharter при наведении курсора показывает неверную точку

Question

У меня проблема с тем, что когда я создаю график высокого чартера для Shiny, функция наведения не работает должным образом. Я использовал highcharter за тонну и никогда не сталкивался с этой проблемой, но по какой-то причине на этой панели инструментов каждый раз, когда я наводю курсор мыши на точку, она либо не регистрирует зависание, либо предоставляет всплывающую подсказку для другой точки. Пример скриншота здесь. У кого-нибудь была эта проблема раньше? Красная стрелка показывает, где была моя мышь, когда делала этот скриншот.

Мой код приведен ниже (обратите внимание, что в liquidRow () есть два графика, но удаление одного и заставление графика занять всю строку не решает проблему). :

`############

Код в пользовательском интерфейсе

fluidRow(align = "center",splitLayout(cellWidths = c("50%","50%"),
                     withLoader(highchartOutput(outputId = "lineChart1", height = 500, width = 700),type = "html",loader = "dnaspin"),
                     withLoader(highchartOutput(outputId = "lineChart2", height = 450, width = 700),type = "html",loader = "dnaspin")
                              )
                    )   

`

#

Код для фактического график (на сервере)

output$lineChart1 <- renderHighchart({

impactData <- read.csv("IMPACT_dash.csv")
colnames(impactData) <- c("Week","notAtAll","notButWill","hasSomewhat",
                          "hasConsiderably","hasDevastating")

highchart() %>%
  hc_add_series(data = impactData, "line", color = "#404040", hcaes(x = Week, y = notAtAll), 
                name = "It has not and will probably never impact my life at all") %>%
  hc_add_series(data = impactData, "line", color = "#8f8f8f", hcaes(x = Week,  y = notButWill),
                name = "It has not but will probably impact my life in the future") %>%
  hc_add_series(data = impactData, color = "#91ad80", "line", hcaes(x = Week, y = hasSomewhat),
                name = "It has impacted my life somewhat") %>%
  hc_add_series(data = impactData, color = "#8fc96b", "line", hcaes(x = Week, y = hasConsiderably),
                name = "It has impacted my life considerably") %>%
  hc_add_series(data = impactData, color = "#83d64f", "line", hcaes(x = Week, y = hasDevastating),
                name = "It has had a devastating impact on my life") %>%
  hc_plotOptions(
    series = list(
      showInLegend = T,
      pointFormat = "{point.y}%"
    ), column = list(colorByPoint = T)
  ) %>%
  hc_yAxis(title = list(text = "Percent"),
           #lables = list(format("{value}%"),
           max = 100) %>%
  hc_xAxis(title = list(text = "Week"), categories = impactData$Week) %>%
  hc_title(text = "") %>%
  hc_tooltip(pointFormat = "{point.y}%")

})

`

Пример данных:

Answer 1

Нашел ответ. Это было потому, что в моей панели инструментов я установил ее так, чтобы при открытии страницы была уменьшена до 80%. Это вызвало проблемы с зависаниями на графике. Код, вызвавший проблему, указан ниже