library(tidyverse)

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

ggplot(data = data_to_viz)+
  geom_bar(mapping = aes(x = semester, fill = subject),  position = "dodge") +
  labs(title = "Number of students enrolled per semester",
       caption = "Which class had the most number of students enrolled per semester?")

The bar chart shows the number of students enrolled per semester by subject. The most popular course appears to be forensic science while the least popular class is biology, as noted by the much lower enrollment rates across four semesters. Physics is the second least popular course for enrollment per semester and forensic science seems to be the most popular course.

I wonder why the third semester s217 has such a spike in enrollment for one course over the others. Did the style of the class change? Were more sections offered? This would be something worth looking into as the number presents a significant outlier in the dataset.