Highcharter单击事件以从图形中过滤数据

library(highcharter)

# 创建一个简单的折线图
chart <- highchart() %>%
  hc_chart(type = "line") %>%
  hc_title(text = "示例图表") %>%
  hc_xAxis(categories = c("A", "B", "C", "D")) %>%
  hc_series(
    list(
      name = "数据1",
      data = c(1, 2, 3, 4)
    ),
    list(
      name = "数据2",
      data = c(5, 6, 7, 8)
    )
  )

# 定义单击事件处理函数
click_event <- JS(
  "function(event) {",
  "  var point = this.series.data[event.point.index];",
  "  // 在这里根据点击的数据点进行数据过滤",
  "  console.log('点击了数据点：', point.category, point.y);",
  "}"
)

# 监听图表的点击事件
chart <- chart %>%
  hc_plotOptions(
    series = list(
      point = list(
        events = list(
          click = click_event
        )
      )
    )
  )

# 显示图表
chart