R 如何在绘图仪中绘制垂直线

我希望在绘图中添加一个图层，该图层有一条垂直线，可以在绘图中左右拖动，并让服务器计算主绘图的数据有多少位于该线的左侧和右侧。目前还不确定plotly是否能做到这一点

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

• 如何使绘制的垂直线可在中拖动，即绘制

• 如何在拖动直线时读取其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)

库（闪亮）
图书馆（绘本）
用户界面