library(tidyverse)

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

ggplot(data_to_viz) +
  geom_bar(aes(x = subject, fill = gender), position = "dodge") +
  labs(title = "Subject Breakdown by Gender",
       caption = "Which class was the most popular for males and females?")

In the bar chart above, each bar represents the number of students broken down by gender in each subject. Of the five STEM courses offered, forensic science was the most popular class for males, females, and NA. Biology was the least popular among all genders.