Shiny를 사용하여 boxplot을 대화 형으로 만들기

Question

나는 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 <- cut (Salaries$TotalPay, breaks = c(0,36466,73678,104359,567595), labels = c("low","mid","high","riches!")) 

shinyServer(function(input, output){ 

    output$boxplot <- renderPlot({ 

    if(input$p=='a'){ 
     i<"1" 

    } 

    if(input$p=='b'){ 
     i<-"2" 
    } 

    if(input$p=='c'){ 
     i<-"3" 
    } 

    if(input$p=='d'){ 
     i<- "riches!" 
    } 


    boxplot(TotalPay~Categories[i]) 

    }) 
}) 

나는 상자 그림은 UI에서 선택한 반응을 얻을 수 없습니다. 나는 내가 호출 할 때와 수준과 관련이있다 생각 :

> Categories["riches!"] 
[1] <NA> 
Levels: low mid high riches! 

' 난 다음에 요소를 추가해야합니까? 아니면 완전히 그 요점을 놓치고 있습니까? 미리 감사드립니다.

Answer 1

보십시오 방법은 access the column by name입니다. 아래 예는 mtcars 데이터 세트입니다.

library(shiny) 

ui <- fluidPage(
    selectInput("p","p",choices = names(mtcars)), 
    plotOutput("myplot")) 

server <- function(input, output, session) { 

    output$myplot <- renderPlot({ 
    boxplot(mtcars[,input$p]) 
    }) 
} 

shinyApp(ui, server)