我有这样的事情：
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)不正确。
谢谢
你可以做
output$result <- renderPlotly({
fn <- switch(
input$period,
day = day,
week = week,
month = month
)
ggplot(data) +
geom_bar(aes(x = fn(birthday)))
})
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句