Highcharter工具提示和图解选项-关键字为此

Question

有人可以帮助我吗？

highchart() %>%
       hc_add_series(data = mtcars, type = "bar", hcaes(y = mpg)) %>%
       hc_plotOptions(
         series = list(
           #column = list(
             events = list(
               mouseOver = JS("function() { if(this.options.color !== 'red') {this.update({color: 'red'})} }"),
               mouseOut = JS("function() { if(this.options.color === 'red') {this.update({color: '#ddd'})} }")
             )
          # )
         )) %>%
       hc_tooltip(formatter= JS("function () {
                                alert(this.options.color)
                                return this.point.mpg
                                }"))

这是代码。它有效，但是我想要的是mouseover事件中的mpg值。 期望的：mouseOver = JS("function() { if(this.point.mpg > 10') {this.update({color: 'red'})}。 this关键字后面有逻辑，我还不了解。如何访问它们的系列或指向hc_plotOptions部分？