Time Spent for Each Subject

library(tidyverse)

data_to_viz <- read_csv("data/data-to-explore.csv")

data_to_viz  %>% 
  select(subject, 
         section, 
         time_spent_hours) %>%
  mutate(subject = recode(subject, 
                          "AnPhA" = "Anatomy",
                          "BioA" = "Biology", 
                          "FrScA" = "Forensics", 
                          "OcnA" =  "Oceanography", 
                          "PhysA" = "Physics")) %>%
  ggplot() +
  geom_boxplot(mapping = aes(x = subject, y = time_spent_hours, color = subject), outlier.fill = "white", outlier.stroke = 0.25) +
  coord_cartesian(ylim = c(0, 100)) +
  labs(title = "Time Spent Distribution for Each Subject",
       caption = "Which subject has the highest mean time?") +
  theme_bw() + 
  theme(legend.position = "none")

In the box plot above, the distributions of time spent on each subject are displayed. Students devote more time on Anatomy. Biology is the least time consuming subject.