Я пытаюсь передать значение состояния (более 50 состояний) из набора данных в раскрывающийся список, но это не работает, так как я могу передать свое значение в раскрывающийся список?
Я передаю значение на #server с помощью ввода команды $ e1, но оно не меняется.
Это мой код:
Сервер
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)
)
График должен быть изменен при выборе штата.