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

我需要能够添加另一个跟踪到绘图后，鼠标点击。我正在使用R的web框架在web浏览器中显示绘图。我想添加的系列是点或任何系列

我还需要在图上画线。我想单击一个起点和一个终点，以及一条穿过单击点的线

这就是我目前所拥有的

#############To Update
#if (!require("devtools"))
#install.packages("devtools")
#devtools::install_github("jbkunst/highcharter")

library("shiny")
library("highcharter")

dots<-hc_add_series_scatter(cars$speed, cars$dist)

hc_base <- highchart() %>% 
  hc_xAxis(categories = citytemp$month) %>% 
  hc_add_series(name = "Tokyo", data = citytemp$tokyo) 

ui <- fluidPage(
  h2("Viewer"),
  fluidRow(
    h3(""), highchartOutput("hc_1", width = "100%", height = "800px"),
     h3("Click"), verbatimTextOutput("hc_1_input2")
  )
)
server = function(input, output) {
  output$hc_1 <- renderHighchart({
       hc_base %>% 
          hc_add_theme(hc_theme_ffx())%>%
                 hc_tooltip(backgroundColor="skyblue",crosshairs = TRUE, borderWidth = 5, valueDecimals=2)%>%
                      hc_add_event_series(series="dots", event = "click")
})
output$hc_1_input2 <- renderPrint({input$hc_1_click })
}
shinyApp(ui = ui, server = server)

更新
#如果（！需要（“devtools”））
#安装包（“devtools”）
#devtools：：安装github（“jbkunst/highcharter”）
图书馆（“闪亮”）
图书馆（“高宪章”）
点数%
hc\U add\u系列（name=“Tokyo”，data=citytemp$Tokyo）
ui%
hc_工具提示（backgroundColor=“skyblue”，十字光标=TRUE，边框宽度=5，数值小数=2）%>%
hc_添加_事件_系列（系列=“点”，事件=“点击”）
})
输出$hc_1_输入2这可能是一种方法：

library(shiny)
library(highcharter)


hc_base <- highchart() %>% 
  hc_xAxis(categories = citytemp$month) %>% 
  hc_add_series(name = "Tokyo", data = citytemp$tokyo) 

ui <- fluidPage(
  h2("Viewer"),
  fluidRow(
    h3(""), highchartOutput("hc_1", width = "100%", height = "800px"),
    h3("Click"), verbatimTextOutput("hc_1_input2")
  )
)
server = function(input, output) {
  output$hc_1 <- renderHighchart({
    hc_base %>% 
      hc_add_theme(hc_theme_ffx())%>%
      hc_tooltip(backgroundColor="skyblue",crosshairs = TRUE, borderWidth = 5, valueDecimals=2)%>%
      hc_add_event_point(event = "click")
  })

  observeEvent(input$hc_1_click,{
    output$hc_1 <- renderHighchart({
      hc_base %>% 
        hc_add_theme(hc_theme_ffx())%>%
        hc_tooltip(backgroundColor="skyblue",crosshairs = TRUE, borderWidth = 5, valueDecimals=2)%>%
        hc_add_series_scatter(cars$speed, cars$dist)
    })

  })

  output$hc_1_input2 <- renderPrint({input$hc_1_click })
}
shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（高级特许）
hc_基数%
hc_xAxis（类别=citytemp$月）%>%
hc\U add\u系列（name=“Tokyo”，data=citytemp$Tokyo）
ui%
hc_工具提示（backgroundColor=“skyblue”，十字光标=TRUE，边框宽度=5，数值小数=2）%>%
hc_添加_事件_点（event=“click”）
})
ObserveeEvent（输入$hc\u 1\u单击{
产出$hc_1%
hc_添加_主题（hc_主题_ffx（））%>%
hc_工具提示（backgroundColor=“skyblue”，十字光标=TRUE，边框宽度=5，数值小数=2）%>%
hc_添加_系列_分散（车$速度，车$距离）
})
})
输出$hc\u 1\u输入2它为我抛出了一个错误：
>点这真是一个很好的工作。你知道如何实现一个按钮，在不刷新页面的情况下返回初始状态吗？非常感谢。@GabrielOana，您可以在渲染第二个绘图时添加一个按钮来重置绘图。