如何在可拖动的情节中制作垂直线

Question

我正在寻找一个可以在绘图中添加一条可以在绘图中左右拖动的垂直线的图层，并让服务器计算主绘图中该行的左侧和右侧有多少数据。不知道目前是否有可能这样做。

我知道如何计算绘图中固定线的左边和右边，所以问题纯粹是关于：

• 如何在垂直方向上拖动绘制的垂直线

• 如何在拖动线时读取其x坐标

例如在一个简单的情节中，例如：

library(shiny)
library(plotly)

ui  <- 
  fluidPage(
   plotlyOutput('Plot1')
       )

server <- function(input, output, session) {  
  output$Plot1 <- renderPlotly({ plot_ly(data = mtcars, x = mtcars$mpg, y = mtcars$hp, type = 'scatter', 
                          mode = 'markers') %>%
    add_segments(x = 20, xend = 20, y = 0, yend = 350)  })

}

shinyApp(ui = ui, server = server)