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 
  })

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

1 个答案: