根據單選按鈕選擇R Shiny創建繪圖

Question

我正在嘗試創建一個Shiny應用程序。 用戶界面UI.R看起來很好，但我遇到了server.R問題。 基本上我想要一個不同的繪圖輸出，具體取決於用戶選擇的radio選項。

用戶可以選擇選項A ， B或C 我想繪制直方圖，如果用戶選擇選項A ，條形圖為B ，餅圖為選項C但我不知道如何編碼條件？ 它是否像if-else語句？ 我已經掙扎了幾個小時！ 這是我的代碼示例：

output$plots <- renderPlot({    
   if selection == 'A'
      # plot histogram
   if selection == 'B'
      # plot bar chart
   if selection == 'C'
      # plot pie chart
})

謝謝！

Answer 1

您可以使用開關根據選擇確定行為：

library(shiny)
myData <- runif(100)
plotType <- function(x, type) {
  switch(type,
         A = hist(x),
         B = barplot(x),
         C = pie(x))
}
runApp(list(
  ui = bootstrapPage(
    radioButtons("pType", "Choose plot type:",
                 list("A", "B", "C")),
    plotOutput('plot')
  ),
  server = function(input, output) {
    output$plot <- renderPlot({ 
       plotType(myData, input$pType)
    })
  }
))