Untitled

Bechdel Test

Is a minimal test of female agency…

library("tidyverse")
library("fivethirtyeight")
library("kableExtra")
bechdel %>%
  count(clean_test, sort = TRUE) %>%
  kable() %>%
  kable_styling()

clean_test	n
ok	803
notalk	514
men	194
dubious	142
nowomen	141

Let’s make a barchart:

bechdel %>%
  count(clean_test) %>%
  arrange(n) %>%
  ggplot(aes(x = clean_test,
             y = n)) +
  geom_col()

Let’s control the size of the chart:

bechdel %>%
  count(clean_test) %>%
  arrange(n) %>%
  ggplot(aes(x = clean_test,
             y = n)) +
  geom_col()