Ochieng40/Jowhar-Health-Quality-Indicators

This is interface (dashboard) to a project that looked at health care quality indicators at Jowhar healthcare Somalia # Jowhar-Health-Quality-Indicators This is interface (dashboard) to a project that looked at health care quality indicators at Jowhar healthcare Somalia # # This is a Shiny web application. You can run the application by clicking # the 'Run App' button above. # # Find out more about building applications with Shiny here: # # shiny.rstudio.com # library(shiny) # Define UI for application that draws a histogram library(shiny) library(plotly) library(ggplot2) library(dplyr) # This package helps with data preparation (edit, remove,mutate, etc) library(shinyWidgets) library(shinydashboard) library(div) library(shinyjs) library(shinyauthr) library(DT) library(rlang) # required package for Rmarkdown library(r2d3) # D3 visualization library(purrr) # requirement packages for Functional Programming Tools library(stringr) # All functions deal with "NA"'s and zero length vectors library(tidyverse) # assists with data import, tidying, manipulation, and data visualization. library(tidytext) library(htmltools) library(ggthemes) library(esquisse) library(desc) #library(plyr) # The package is used for counting CSS % group_by(Gender) %>% summarise(Percentage=n()/nrow(.)) # plot Gender by Hospital Cleanliness hospital_cleanliness % dplyr::count(Gender, Room_Cleanliness, sort = TRUE) hospital_cleanliness %>% mutate(Room_Cleanliness = reorder_within( # reorder functions arranges from the most occuring frequency to the least occuring x = Room_Cleanliness, by = n, within = Gender )) %>% ggplot(aes(x = Room_Cleanliness, y =n, fill = Gender)) + geom_col(show.legend = FALSE) + scale_x_reordered() + coord_flip()+ facet_wrap(~Gender, scales = "free") + labs(x = "Cleanliness of the Rooms", y = "Frequency") # chi square independence test df %>% select(Gender,Respect_courtesy) %>% table() %>% fisher.test() df %>% select(Age_Clean,'Doc …