如何在 R 中的 highcharter 中为轴标签创建工具提示？

Question

我正在尝试创建一个 highcharter 图表，允许用户将鼠标悬停在 y 轴标签上并显示包含一些信息的工具提示。

我在 jsfiddle http://jsfiddle.net/W5wag/2/ 中找到了这个 highcharts 示例展示了我正在尝试做的事情。

这是我尝试使用 highcharter 在 R 中执行的一个非常基本的示例，但它不起作用：

  mtcars %>%
    hchart('scatter', hcaes(x = mpg, y = wt)) %>% 
    hc_xAxis(
      labels = list(
        enabled = TRUE,
        formatter = JS("function(){
          return '<span title='My custom title'>' + this.value + '</span>';
        }"
        )
      )
    )

任何人都可以阐明我做错了什么吗？