Lecturer Enrollment

Today I ran the enrollment numbers for the UC-AFT union. Here are a trio of quick graphs.

library("ggplot2")
library("readxl")

df <- read_excel("lecturer enrollment.xlsx")

ggplot(df, aes(x = reorder(university, -percentage), 
               y = percentage, 
               fill = university)) +
  geom_col() +
  geom_text(aes(label = percentage), vjust = 1) +
  labs(title = "Union Enrollment (by percentage)",
       x = "university")

ggplot(df, aes(x = reorder(university, -membership), 
               y = membership, 
               fill = university)) +
  geom_col() +
  geom_text(aes(label = membership), vjust = 1) +
  labs(title = "Union Enrollment (by membership)",
       x = "university")

ggplot(df, aes(x = reorder(university, -lecturers), 
               y = lecturers, 
               fill = university)) +
  geom_col() +
  geom_text(aes(label = lecturers), vjust = 1) +
  labs(title = "Lecturer Employment",
       x = "university")