R shinyapps Plot nach Wahl in SelectInput

Question

in Shinyapp Ich habe einen SelectInput, wo ich einige Werte auswählen kann. Dann möchte ich den ausgewählten Wert darstellen. kann ich eine definierte Handlung wie Grundstück (mtcars $ mpg ~ mtcars $ wt) plotten aber ich wannt Grundstück (mtcars $ mpg ~ ausgewählten Wert)

plotten Kann mir jemand helfen. Mein Code ist dies:

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

Vielleicht haben Sie einen reaktiven Datenrahmen schaffen könnten, wo Sie die mtcars Teilmenge und dann verwenden 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)