Hunger on Campus: Ordering levels

# Plot of alignment broken down by gender
ggplot(comics, aes(x = align)) + 
  geom_bar() +
  facet_wrap(~ gender)

# Use unique() to find unique words
unique(comics$gender)
## [1] Male   Female Other  <NA>  
## Levels: Female Male Other

# Create an ordered factor
comics$gender <- factor(comics$gender, ordered = TRUE, levels = c("Male", "Female", "Other"))

ggplot(comics, aes(x = align)) + 
  geom_bar() +
  facet_wrap(~ gender)