首页 文章

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

提问于
浏览
1

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

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

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

1 回答

  • 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")
    

相关问题