Studying disagreement in Bechdel test evaluations

bechdel_disagree.R

library(fivethirtyeight)
library(tidyverse)

# I still can't use forcats package from scratch
levels <- c("nowomen-disagree", "notalk-disagree", "men-disagree",
            "dubious-disagree", "ok-disagree")

bechdel %>% 
  filter(str_detect(test, "disagree")) %>% 
  select(test, binary) %>% 
  mutate(test = factor(test, levels = levels)) %>% 
  ggplot(aes(x=test, fill=binary)) +
  geom_bar() +
  labs(x="Detailed Bechdel Test Result", 
       fill="Bechdel Test\nFinal Binary",
       y="Count",
       title = "Does Bechdel test ambiguity get rounded up or down?")