如何在R中的Highcharts工具提示中添加额外的信息？

library(highcharter)

# 创建一个数据框
data <- data.frame(
  x = c("A", "B", "C", "D"),
  y = c(10, 20, 30, 40),
  extra_info = c("Extra 1", "Extra 2", "Extra 3", "Extra 4")
)

# 创建Highcharts图表
chart <- highchart() %>%
  hc_chart(type = "column") %>%
  hc_title(text = "示例图表") %>%
  hc_xAxis(categories = data$x) %>%
  hc_yAxis(title = list(text = "值")) %>%
  hc_tooltip(
    formatter = JS("function() {
      var index = this.point.index;
      var extraInfo = data[index].extra_info;
      return '<b>' + this.x + '</b><br/>' +
             '值: ' + this.y + '<br/>' +
             '额外信息: ' + extraInfo;
    }")
  ) %>%
  hc_add_series(data = data$y)

# 显示图表
chart

install.packages("highcharter")