R 如何在闪亮的应用程序中使用ggplot2绘制直方图？

我试图在一个闪亮的应用程序中使用ggplot绘制直方图。 我有一个数据框（称为x），有3列，每列包含一组0、1、2和3（分类变量）。我的目标是让用户也从下拉列表中选择一列，并显示该列中的数据直方图。 在正常R标记中，我使用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)

---

ui我相信您希望
aes\u string
而不是
aes
，因为您用列名传递一个字符值。非常感谢你！！有没有什么方法可以让我与没有R的人共享此交互式文档？您可以将您闪亮的应用程序作为网页共享。有关详细信息，请参阅教程：如果我将其作为网页共享，是否有人能够访问数据？或者人们只能访问文档而不能访问数据？