我一直在尝试用Shiny中的选择性输入开发一个交互式的boxplot .
当前代码:
library(shiny)
shinyUI(fluidPage(
titlePanel("Sample 1"),
sidebarLayout(
sidebarPanel(
selectInput("p", "Choose your salaries", choices = c("low"='a',"mid"='b',"high"='c',"riches!"='d'), selected = 4)
),
mainPanel(
plotOutput("boxplot")
)
)
))
library(shiny)
read.csv("Salaries.csv")
Categories
shinyServer(function(input, output){
output$boxplot
if(input$p=='a'){
i
}
if(input$p=='b'){
i
}
if(input$p=='c'){
i
}
if(input$p=='d'){
i
}
boxplot(TotalPay~Categories[i])
})
})
我无法让boxplot对UI中的选择作出反应 . 我怀疑它与我打电话时的等级有关:
> Categories["riches!"]
[1]
Levels: low mid high riches!
'我需要为这些添加因子吗?还是我完全忽略了这一点?提前致谢!