使用R HIghcharter库在单击鼠标后向绘图中添加和附加系列

install.packages("highcharter")

library(highcharter)

chart <- highchart()

chart <- chart %>% 
  hc_add_event_point_click(js = JS("function(e) {
                                   // 在这里执行单击事件后的操作
                                 }"))

chart <- chart %>% 
  hc_add_event_point_click(js = JS("function(e) {
                                   chart.addSeries({
                                     name: '新系列',
                                     data: [1, 2, 3, 4, 5]
                                   });
                                 }"))

chart <- chart %>% 
  hc_plotOptions_series_allowPointSelect(TRUE)

library(highcharter)

chart <- highchart() %>%
  hc_add_event_point_click(js = JS("function(e) {
                                   chart.addSeries({
                                     name: '新系列',
                                     data: [1, 2, 3, 4, 5]
                                   });
                                 }")) %>%
  hc_plotOptions_series_allowPointSelect(TRUE)

chart