Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- output$overat <- renderPlot({
- filtered <-
- Medi_sum_small %>%
- filter(State == 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))
- })
- box(
- title = "Select State"
- ,width = 3
- ,solidHeader = TRUE
- ,status = "primary"
- ,selectInput(
- 'e1', 'State',
- c("All",unique(Medi_sum_small$State))
- )
- Graphs should be changed when I change the stage.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement