プロットをクリックしてRを移動するようにスパンを実装するshiny

Question

与えられたコードは、単純なscatterPlotを作成します。私はプロットをクリックして、私が望む任意の方向、基本的にスパン機能に移動したいと思います。参照用のスナップショットを添付してください。

## app.R ## 
library(shiny) 
library(shinydashboard) 
library(bupaR) 
library(edeaR) 
library(eventdataR) 
library(processmapR) 
library(processmonitR) 
library(xesreadR) 
library(lubridate) 
library(dplyr) 
library(knitr) 
library(XML) 
library(xml2) 
library(data.table) 
library(ggplot2) 
library(ggthemes) 
library(glue) 
library(tibble) 
library(miniUI) 
library(tidyr) 
library(shinyTime) 
library(petrinetR) 
library(magrittr) 
library(shinyWidgets) 
library(DiagrammeR) 
ui <- dashboardPage(
dashboardHeader(title = "Zoom and Reset Dashboard",titleWidth = 290), 
dashboardSidebar(
width = 0 
), 
dashboardBody(
# Creation of tabs and tabsetPanel 
tabsetPanel(type = "tab", 
      tabPanel("Resource Dashboard", 
        fluidRow(column(10, 
            grVizOutput("res_freq_plot")))), 
      id= "tabselected" 
) 
)) 
server <- function(input, output) 
{ 
output$res_freq_plot <- renderDiagrammeR(
{ 
    patients %>% process_map() 
} 
) 
} 
shinyApp(ui, server) 

Answer 1

あなたはplotly

## app.R ## 
library(shiny) 
library(plotly) 
library(shinydashboard) 
ui <- dashboardPage(
    dashboardHeader(title = "Zoom and Reset Dashboard",titleWidth = 290), 
    dashboardSidebar(
    width = 0 
), 
    dashboardBody(
    # Creation of tabs and tabsetPanel 
    tabsetPanel(type = "tab", 
       tabPanel("Resource Dashboard", 
         fluidRow(column(10, 
             plotlyOutput("res_freq_plot")))), 
       id= "tabselected" 
    ) 
)) 
server <- function(input, output) 
{ 
    output$res_freq_plot <- renderPlotly(
    { 
     plot_ly(iris, x= iris$Petal.Length, y = iris$Sepal.Length) 
    } 
) 
} 
shinyApp(ui, server)