Я имею в виду, что ваш пример - самый простой блестящий пример, который я когда-либо видел на stackoverflow.Я советую вам потратить немного времени на изучение этого руководства, затем попытаться создать собственное приложение, и если вы застряли, вернитесь сюда:)
Чтобы научиться блестящему, я рекомендую Учебное пособие по Rstudio .После изучения и повторного забывания я советую вам использовать замечательную таблицу, предоставленную Rstudio .
app.r
выглядит следующим образом:
library(shiny)
library(plotly)
### ui.r
ui <- fluidPage(selectInput('my_dropdown','Choose Column',colnames(mtcars)),
plotOutput('my_plot')
)
### server.r
server <- function(input, output) {
output$my_plot <- renderPlot(
plot(mtcars[,input$my_dropdown],ylab=input$my_dropdown,xlab='value')
)
}
shinyApp(ui,server)
Только дляради полноты.Этот тип графика может быть создан с использованием plotly
.Преимущество заключается в том, что вы можете использовать это в автономном html
.Недостатком является то, что выпадающие с плотно достаточно интенсивно кода.Учебное пособие для plotly
здесь: https://plot.ly/r/dropdowns/