График не генерируется должным образом в блестящем, только один столбец показан на графике

Question

Я импортировал набор данных = студентов для создания реактивных графиков, но правильный график не генерируется. Я использую ggplot для графиков, поэтому не могли бы вы сказать мне, что не так в моем коде.

library(shiny)
library(ggplot2)
ui <- navbarPage("A SHINY APP!! ",
         tabPanel("Plots",headerPanel("Different plots of data"),
          sidebarLayout(
             sidebarPanel(
               selectInput("x.col","x.variable",choices=names(students))
                           ),
                   mainPanel(plotOutput("histPlot")))
                           )
                        )


server <- function(input, output) {
         plot <- reactive({ ggplot(students,aes(x=input$x.col))
                         })
         output$histPlot <- renderPlot({
                 plot() + geom_histogram(stat = "count",bins = 30)
                                  })
                        }


shinyApp(ui = ui, server = server

Answer 1

Попробуйте использовать функцию get () следующим образом:

ggplot(students, aes(x = get(input$x.col)))