Question

我使用了闪亮并创建了一个&{10 2 [3 4 5 6 7]}文件，希望用ptr构建一个条形图。我还使用app.R创建了2个复选框来控制条件。虽然在检查所有方框后，条的总数应为28，但由于某种原因，最大值似乎只允许17条。因此缺少一些条形（数据行）。失踪的酒吧似乎没有模式。有人可以帮忙吗？

数据集：https://drive.google.com/open?id=1fUQk_vMJWPwWnIMbXvyd5ro_HBk-DBfc

我的代码：

ggplot

Answer 1

library(shiny)
library(ggplot2)


ui <- fluidPage(
     checkboxGroupInput(inputId = "type", label = "select question type", 
                 choices = levels(avg.time$question_type), selected = TRUE), 
     plotOutput('bar')
)

server <- function(input, output) {

  data <- reactive(avg.time[avg.time$question_type %in% input$type, ])
  output$bar <- renderPlot({
  ggplot(data(), 
       aes(x=question, response_time)) + geom_bar(stat='identity', width = 0.5, 
                                                  aes(fill = question_type))

 }, height =500, width = 1000)
}

shinyApp(ui = ui, server = server)

of course you can use avg.time[avg.time$question_type %in% input$type, ] inside ggplot2 but reactivity is better.

使用闪亮创建ggplot条形图时丢失的条形图

1 个答案: