我正在尝试创建一个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
})
谢谢!
您可以使用switch根据选择来确定行为:
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)
})
}
))