Как построить гистограмму, используя ggplot2 в блестящем приложении?

Question

Я пытаюсь построить гистограмму, используя ggplot в блестящем приложении. У меня есть фрейм данных (называемый х) с 3 столбцами, каждый столбец содержит кучу нулей, единиц, двойок и тройок (категориальные переменные). Моя цель - чтобы пользователь тоже выбрал один из столбцов из выпадающего списка, и должна появиться гистограмма данных в этом столбце. В нормальном R Markdown я получил следующую гистограмму, используя ggplot2.

 ggplot(x, aes(col1)) +
      geom_histogram(binwidth = 1, colour = "steelblue4", fill = "steelblue3" )  

Это именно то, что я хочу.

Однако я не понимаю, когда делаю это в своем блестящем приложении.

ui <- fluidPage(
  titlePanel("Step 2"),
  sidebarLayout(
    sidebarPanel(
      selectInput("sym", "Choose ",
                  colnames(x))
    ),
    mainPanel(
      plotOutput("coolplot")
    )
  )
)

server <- function(input, output) {
  output$coolplot <- renderPlot(
    ggplot(x, aes(input$sym)) +
      geom_histogram(binwidth = 1, colour = "steelblue4", fill = "steelblue3" ) 
  )

}

shinyApp(ui = ui, server = server)

Я получаю следующую ошибку.

StatBin требует непрерывной переменной x: переменная x является дискретной. Возможно, вы хотите stat = "count"?

Я пытался использовать stat_count вместо geom_histogram, но это привело к чему-то вроде этого

Я также попытался добавить stat = "count", как подсказывает ошибка, но в итоге я получил ту же ошибку. Любое руководство будет высоко ценится.

Дополнительный вопрос. Могу ли я поделиться этим интерактивным документом с кем-то, у кого нет R?