Shinyapps SelectInputで選択したShinyappsプロット

Question

Shinyapp私はいくつかの値を選択できるselectInputがあります。次に、y〜選択された値をプロットしたいと思います。 私はプロット（mtcars $ mpgファイル〜mtcars $重量）のような定義されたプロットをプロットすることができますが、私は プロット（mtcars $ mpgファイル〜選択した値）

誰が私を助けることができるをプロットするwannt。

library(shiny) 

ui <- fluidPage( 
titlePanel("MyPLot"), 
    sidebarLayout(
     sidebarPanel(
     selectInput("variable", "Variable:", c("Cylinders" = "cyl", "Transmission" = "am", "Gears" = "gear")) 
     ), 

    mainPanel(
    plotOutput("distPlot"), 
    plotOutput("secPlot") 
     ) 
    ) 
) 

server <- function(input, output) { 
    output$distPlot <- renderPlot({plot(mtcars$mpg~mtcars$wt) }) 
    output$secPlot <- renderPlot({ plot(mtcars$mpg~input$variable) }) 
} 

shinyApp(ui = ui, server = server) 

Answer 1

たぶん、あなたはmtcarsをサブセットし、その後renderPlotを使用することができる反応性データフレームを作成することができます。：

server <- function(input, output) { 
    output$distPlot <- renderPlot({plot(mtcars$mpg~mtcars$wt) }) 

    df <- reactive({ 
    df <- mtcars %>% select(mpg, input$variable) 
    }) 

    output$secPlot <- renderPlot({ 
    dfb <- df() 
    plot(dfb[, 1]~ dfb[, 2]) 
    }) 
} 

shinyApp(ui = ui, server = server)