These data are ONLY for courses taught by Tenure Track faculty and exclude years where enrollments were capped below 24 for chair course releases etc.

Instructions

Click on the legend to turn on and off a course Double click to show ONLY that course Mouse over points to see enrollment numbers and course name

en.intermediate <- ggplot(current.faculty.intermediate,
            aes(x = as.numeric(Year), y = value, color = Name, group = Name)) +
  geom_hline(yintercept = 24, linetype = "dashed") +
  geom_line(linewidth = 1.2) +
  geom_point(size = 3) +
  scale_y_continuous(breaks = scales::breaks_pretty(n = 10)) +
  cleanplot.legend +
  labs(x = "Year", y = "Enrollment", title = "Intermediate Courses Taught by TT faculty")


RESPONSIVE_PLOTLY_HELPER(ggplotly(en.intermediate))

We have capped our seminars at 10 some years and 12 others.

en.seminar <- ggplot(current.faculty.seminars,
            aes(x = as.numeric(Year), y = value, color = Name, group = Name)) +
  geom_hline(yintercept = 12, linetype = "dashed") +
  geom_hline(yintercept = 10, linetype = "dashed") +
  geom_line(linewidth = 1.2) +
  geom_point(size = 3) +
  scale_y_continuous(breaks = scales::breaks_pretty(n = 10)) +
  cleanplot.legend +
  labs(x = "Year", y = "Enrollment", title = "Seminars Taught by TT faculty")


RESPONSIVE_PLOTLY_HELPER(ggplotly(en.seminar))