17 Rooms: Data Capture and Analysis

#Note
#colour design: bin=icon color, background=lighter shades bin color
#website: https://coolors.co/e1f4e3-086375-1dd3b0-affc41-b2ff9e

#room 15
#bin: #3DAE4A; background:#E1F4E3

#clean and prepare data
#set path
folder_path <- partial(here, "00_raw_data")

#read and clean data (raw dataset)
temperature_check_2022 <- folder_path("temperature_check_2022.xlsx") %>%
  read_excel() %>%
  rename("Clarity" = "As of the end of today’s Room meeting, how clear are you on what your Room is trying to do?",
         "Alignment" = "As of the end of today’s Room meeting, how aligned is your Room on a set of shared actions?",
         "Resources" = "How readily available are the resources (time, budget, and capabilities) required to drive your Room's action steps?") #%>%

## New names:
## • `` -> `...9`
## • `` -> `...10`
## • `` -> `...12`

#view(temperature_check_2022)

#dataset for facet_grid
temperature_check_2022_facet <- temperature_check_2022 %>%
  pivot_longer(cols = 1:3, names_to = "indicator", values_to = "score") %>%
  janitor::clean_names()

#view(temperature_check_2022_facet)

#dataset for plotly
temperature_check_2022_interactive <- temperature_check_2022
temperature_check_2022_interactive$Clarity <- as.character(temperature_check_2022_interactive$Clarity)
temperature_check_2022_interactive$Alignment <- as.character(temperature_check_2022_interactive$Alignment)
temperature_check_2022_interactive$Resources <- as.character(temperature_check_2022_interactive$Resources)
temperature_check_2022_interactive <- temperature_check_2022_interactive %>%
  janitor::clean_names()
#view(temperature_check_2022_interactive)

temperature_check_2022_room15 <- temperature_check_2022_facet %>%
  filter(room == 15)

temperature_check_2022_room15$score <- as.integer(temperature_check_2022_room15$score)

temperature_check_2022_room15$meeting <- sub("^", "Meeting ", temperature_check_2022_room15$meeting)

temperature_check_2022_room15 %>%
  ggplot(aes(x = score)) +
  geom_histogram(binwidth = 1, color = "#3DAE4A", fill = "#3DAE4A") +
  ylim(0,8) +
  stat_bin(aes(y=..count.., label=..count..), 
           bins = 4, 
           geom="text", 
           #position=position_dodge(width=0.9), 
           vjust= -0.5, 
           family="Times New Roman", 
           size = 3,
           face = "bold",
           colour = "#3DAE4A") +
  labs(
    title = "Room 15: Temperature Check",
    y = "Number of Answers",
    x = "Scores",
    caption = "Date retrieved on 2022/02/02"
  )+
  #theme_17rooms()+
  facet_grid(meeting ~ indicator) +
  theme(panel.background = element_rect(fill = '#E1F4E3', colour = '#E1F4E3'),
        strip.background = element_rect(fill="white"),
        panel.grid.major=element_line(colour="#E1F4E3"),
        panel.grid.minor=element_line(colour="#E1F4E3"),
        text=element_text(family="Times New Roman"),
        title = element_text(size = 12, face = "bold"),
        strip.text = element_text(size = 10, face = "bold"),
        axis.title = element_text(face = "plain", size = 8),
        axis.text.y=element_blank(),
        axis.ticks.y=element_blank(),
        axis.ticks.x=element_blank(),
        plot.caption = element_text(face = "plain", size = 8)
        )