时间戳

首页 > 解决方案 > 在公式中使用 selectInput 中的选择

r - 在公式中使用 selectInput 中的选择

问题描述

我有这样的事情：

ui <- fluidPage(
  fluidRow(
    column(4,
           pickerInput("period", "Period", c("day", "week", "month"), 
                       options = list(`actions-box` = TRUE))))

我的输出（绘图）需要根据此输入中的选择进行更改：

output$result <- renderPlotly({
    ggplot(data) +
      geom_bar(aes(x = paste(input$period)(birthday)))

换句话说，结果应该是day(birthday), week(birthday), 或month(birthday). 在这种情况下我应该怎么做？我的代码paste(input$period)(birthday)不正确。

谢谢

标签： rshiny

解决方案

你可以做

output$result <- renderPlotly({
    fn <- switch(
      input$period,
      day = day,
      week = week,
      month = month
    )
    ggplot(data) +
      geom_bar(aes(x = fn(birthday)))
})

推荐阅读