Использование ввода $ на ggplot

Question

Я пытаюсь добавить вывод из выпадающего списка в поле в ggplot

Поля данных, которые я хочу использовать, имеют следующие поля: Изображение данных здесь

Код, который я использую для вывода этого на диаграмму:

ggplot(survey_data_sub, aes(fill=`Education level`, y=`Education level`, 
x=`Developer group`)) +
geom_bar( stat="identity")

Это прекрасно подходит для отображения результатов уровня образования.

Я хочусделать «заливку» и «у» динамическими из выпадающего списка.Поэтому я использовал приведенный ниже блестящий код:

sidebarLayout(
           sidebarPanel(
             selectInput("newplot_select", "Choose Breakdown for chart:", 
                         list("UK location", "Education level", "Current 
salary", "Generation"))
               ),

               mainPanel(
                 textOutput("newPlot_selected_filter"),
                 plotOutput("newPlot")
               )
             )


 output$newPlot <- renderPlot({

    ggplot(survey_data_sub, aes(fill=input$newplot_select, 
    y=input$newplot_select, x=`Developer group`)) + 
    geom_bar( stat="identity")

 })

input $ newplot_select doesent извлекает содержимое из выпадающего списка.Если я просто выведу input $ newplot_select в текстовом выводе, он напечатает введенное значение.Как я могу сделать это в коде ggplot, который я использовал?

Спасибо за вашу помощь