Question

我有一个selectInput小工具，要求用户选择y轴。选项是流派，经验和评级，我想输出我创建的三个条形图中的一个（ratebars3，expbars3和genbars4）。每个图具有相同的x轴（公司），但图表根据y的不同而不同。以下是我的UI中选择输入的代码：

    selectInput("selecty", label = h3("Select Y axis"),
    choices = list("Rating", "Experience", "Genre"))

我一直在服务器上尝试一些if.. return类型语句而没有运气。如果有人知道某些服务器代码可以根据用户输入显示我的情节，那将是一个巨大的帮助。

Answer 1

我正在使用情节包，但似乎我已经回答了我自己的问题。必须创建一个反应性表达式：

服务器：

    barplottest <- reactive({
    if ( "Rating" %in% input$selecty) return(bars3)
    if ( "Experience" %in% input$selecty) return(expbars3)
    if( "Genre" %in% input$selecty) return(genbars4) 
    })

   output$barplot <- renderPlotly({   
   dataplots = barplottest()
   print(dataplots)
   })

Ui

      selectInput("selecty", label = h3("Select Y axis"),
                   choices = list("Rating", "Experience", "Genre")),
       plotlyOutput("barplot")

根据闪亮的用户输入输出不同的图

1 个答案: