“原始”-交互式闪亮图的缩放

Question

我试图在navbarpage闪亮的应用程序中进行交互式绘图。

问题是input$plot_click$x值（和input$plot_brush$xmin值...）的范围是[0; 1]-它们不会缩放到数据。 因此，我无法使用这些值来标识行或类似的东西。

这是ui.R代码

library(shinythemes)

shinyUI(navbarPage("Kursqualität",theme = shinytheme("united"),
               tabPanel("Abstrakte Qualitätsdimensionen",          
                        sidebarLayout(
                          sidebarPanel(
                            h4("test")
                           ),

                          mainPanel(  
                            plotOutput("dummyplot",
                                       click = "plot_click",
                                       brush = brushOpts(
                                         id = "plot_brush")
                            ),

                            h4("Clicked points"),
                            verbatimTextOutput("selected_rows"),

                            h4("Brushed points"),
                            verbatimTextOutput("brush_info")                              

                          )
                        )
               ),


               tabPanel("Konkrete Qualitätsmerkmale"

                          ),

               tabPanel("Marketingeffekt"
                        )
))

这是server.R代码库（ggplot2）

shinyServer(function(input, output, session) {


output$dummyplot <-  renderPlot({dp <- ggplot(mtcars, aes(qsec, disp)) + geom_jitter()
                                 print(dp)
                      })


output$brush_info <- renderPrint({str(input$plot_brush)
                     })



output$selected_rows <- renderPrint({str(input$plot_click)
                        })


})

我还创建了一个要点，您可以通过运行它

library(shiny)
runGist("d138bf3e6a4996ffb8de")

预先感谢塞缪尔

Answer 1

看来，问题是由print引起的。 如果只返回dp一切正常。

output$dummyplot <-  renderPlot({
    dp <- ggplot(mtcars, aes(qsec, disp)) + geom_jitter()
    dp 
  })