Переменные оси X и оси Y, основанные на вводе пользователя, используя Shiny

Question

Я довольно новичок в R-программировании и, следовательно, в блестящем. В настоящее время я работаю над небольшой приборной панелью. Я хотел бы дать пользователям возможность выбирать то, что они хотели бы печатать по осям X и Y. Мой скрипт не работает, к сожалению, кто-нибудь может мне помочь?

Сценарий:

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(


      radioButtons("x", "x-axis",
                   choices = c("a", "b", "c")),
      radioButtons("y", "y-axis",
                   choices = c("a","b","c")),
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    p <- ggplot(data, aes_string(x=input$x, y=input$y)) +
      geom_point(size = 5, col = 'blue') +
      ggtitle("Test")

    p
  })
}

shinyApp(ui = ui, server = server)

Не распознает ввод.

Заранее спасибо.