时间戳

首页 > 解决方案 > Rshiny：我想让用户选择 3 个图表

r - Rshiny：我想让用户选择 3 个图表

问题描述

在我的服务器函数中，我有一个代码，旨在让用户看到三个图表之一。

x = reactive({
    
    if (input$Option == "By rating"){
      output$Movies = renderPlot({ggplot(data(),aes(`Rate`,`Gross Worldwide`, colour=Company)) +geom_point(size = 2,alpha = 0.6) +
          theme_bw()+geom_text(aes(label=`Original Title`),hjust=0, vjust=0)})
    }
    else if (input$Option == "By Opening Weekend (USA)"){
      output$Movies = renderPlot({ggplot(data(),aes(`Opening Weekend USA`,`Gross Worldwide`, colour=Company))+geom_point(size = 2,alpha = 0.6) +
          theme_bw()+geom_text(aes(label=`Original Title`),hjust=0, vjust=0)})
    }
    else if (input$Option == "By Budget"){
      output$Movies = renderPlot({ggplot(data(),aes(`Budget`,`Gross Worldwide`, colour=Company))+geom_point(size = 2,alpha = 0.6) +
          theme_bw()+geom_text(aes(label=`Original Title`),hjust=0, vjust=0)})
    }
  })
  
 output$Movies = renderPlot(x())

在我的 ui 函数中，我制作了选择器，允许他们选择他们希望使用的不同选项。

sidebarPanel(
    selectInput("Option", "Options:", 
                choices=c("By rating", "By Opening Weekend (USA)", "By Budget")),

我遇到的问题是，虽然这段代码名义上有效，但如果我要实际运行它，三种排序方法的选择器在工作时实际上并没有改变图形。这里可能是什么问题？

标签： rplotrshiny

解决方案

我认为问题在于您在反应式中使用了 renderPlot，然后在 Output$Movies 中再次使用了 renderPlot。因此，您说要 renderPlot 两次。我如何让它为我工作只是从反应中删除 Output$Movies == renderPlot，只保留 renderPlot 作为单独的函数。因为我没有你的数据，所以我对其进行了一些更改并使用 mtcars 来展示一个简单的工作示例，说明如何使用响应式：

    library(shiny)
    library(ggplot2)
    
    ui <- fluidPage(
      selectInput("Option", "Options:", 
                  choices=c("By rating", "By Opening Weekend (USA)", "By Budget")),
      plotOutput("Movies")
    )
    
    server <- function(input, output, session) {
      
      x = reactive({
        
        if (input$Option == "By rating"){
          ggplot(mtcars,aes(mpg,cyl, colour=gear)) +geom_point(size = 2,alpha = 0.6)
        }
        else if (input$Option == "By Opening Weekend (USA)"){
          ggplot(mtcars,aes(mpg,disp, colour=vs)) +geom_point(size = 2,alpha = 0.6)
        }
        else if (input$Option == "By Budget"){
          ggplot(mtcars,aes(mpg,drat, colour=hp)) +geom_point(size = 2,alpha = 0.6)
        }
      })
      
      output$Movies = renderPlot(x())
      
      
    }
    
    shinyApp(ui, server)

希望这就是你要找的！

推荐阅读