Question

我一直在玩Shiny中的plotOutput（“plot_click”）。在大多数情节中，它看起来非常简单。不是返回鼠标单击的像素x和像素y值，而是返回缩放到鼠标单击所关注的绘图的x和y值。 app.R示例如下 -

library(shiny)

ui <- basicPage(
  plotOutput("plot1", click = "plot_click"),
  verbatimTextOutput("info")
)

server <- function(input, output) {
  output$plot1 <- renderPlot({
    qplot(mtcars$wt, mtcars$mpg)
  })

  output$info <- renderText({
    paste0("x=", input$plot_click$x, "\ny=", input$plot_click$y)
  })
}

shinyApp(ui, server)

我想扩展这个功能，以便我可以获得缩放到鼠标点击感兴趣的子图的x和y值。在使用绘图矩阵时，我对此很感兴趣。 app.R示例如下 -

library(shiny)

ui <- basicPage(
  plotOutput("plot1", click = "plot_click"),
  verbatimTextOutput("info")
)

server <- function(input, output) {
  data <- select(mtcars,wt,mpg,qsec)

  output$plot1 <- renderPlot({
    ggpairs(data)
  })

  output$info <- renderText({
    paste0("x=", input$plot_click$x, "\ny=", input$plot_click$y)
  })
}

shinyApp(ui, server)

我只对左下角的三个子图感兴趣。但是，当我鼠标点击这些左下角三个子图的任何区域时，我得到了整个图的缩放x和y值。是否可以更改此设置，以便我可以准确地获取每个子图的x和y值的值？注意：我对这三个左下方子图之外的任何点都不感兴趣，并且如果需要，他们不会放弃它们的交互功能。请分享任何想法！

分别处理每个子图的plotOutput（“plot_click”）

0 个答案: