如何从下拉列表中的多个值中调用值（R闪亮）

Question

我试图将数据集中的状态值（超过50个状态）传递到下拉列表，但是它不起作用，那么如何将我的值传递到下拉列表？

我通过输入input $ e1在#server上传递了值，但是没有变化。 这是我的代码：

服务器

output$overat <- renderPlot({
    input$e1
  ggplot(Medi_sum_small, aes(Hospital_Ownership)) +
    geom_density(aes(fill=factor(Hospital_overall_rating)), alpha=0.7) + 
    labs(x="Ownership",
         fill="Overall rating") +
    scale_x_discrete(labels = function(x) str_wrap(x,width=0.3))
  })

UI

box(
              title = "Select State"
              ,width = 3
              ,solidHeader = TRUE
              ,status = "primary"
              ,selectizeInput(
              'e1', 'State',
              choices = unique(Medi_sum_small$State)
            )

选择状态时应更改图表。