В пользовательском интерфейсе вы должны добавить, щелкнуть, дважды щелкнуть мышью или навести курсор:
plotOutput("plot1", click = "plot_click")
А на сервере будут вводиться $ plot_click, координаты X и Y
Вот блестящее объяснение:
https://shiny.rstudio.com/articles/plot-interaction.html
И я написал для вас простой пример:
library(shiny)
library(ggplot2)
library(MASS)
ui<- shinyUI(
fluidPage(
plotOutput("grafica", hover="clickGrafica"),
tableOutput("miverbatini")
)
)
server<- shinyServer(function(input,output) {
output$grafica <- renderPlot({
ggplot(mpg,aes(x=cty, y=hwy)) +
geom_point()
})
output$miverbatini <- renderTable({
nearPoints(mpg,input$clickGrafica, threshold = 10) # near points 20
})
})
shinyApp(ui, server)