Hunger on Campus: Putting trivial levels in one bucket

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

# Rename the levels of credit_factor
levels(comics$align)
## [1] "Bad"                "Good"               "Neutral"           
## [4] "Reformed Criminals"

levels(comics$align) <- c("Bad", "Good", "Other", "Other")

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