Прежде всего, два замечания к вашему сообщению:
- это не воспроизводимо, см. здесь , чтобы узнать, что такое воспроизводимый пример и как сделать один
- очевидно, что вы не искали достаточно. Ввод «r блестящий сюжетный вывод» в любой поисковой системе дает несколько возможных решений (например, здесь ).
В следующий раз, когда у вас возникнут проблемы, пожалуйста, рассмотрите эти два момента, прежде чем принимать сообщение о StackOverflow.
Теперь ответим (используя данные iris
, поскольку ваш пример не воспроизводим):
library(shiny)
library(plotly)
ui <- fluidPage(
selectInput("choice", "Choose", choices = names(iris), selected = NULL),
plotlyOutput("graph")
)
server <- function(input, output, session){
output$graph <- renderPlotly({
plot_ly(iris, x = ~get(input$choice), y = ~Sepal.Length, type = 'scatter', mode = 'markers')
})
}
shinyApp(ui, server)