Part 68 Villains vs Heroes

68.1 Column

68.1.1 Villians by Physical Features

goodBadSummary |>
  filter(ALIGN == "Bad Characters") |>
ggplot(aes(x = SEX, y = EYE, fill= sums)) + 
  geom_tile() +
  scale_fill_distiller(palette = "RdPu") +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  xlab(label="") + ylab(label="")

68.2 Column

68.2.1 Heroes by Physical Features

goodBadSummary |>
  filter(ALIGN == "Good Characters") |>
ggplot(aes(x = SEX, y = EYE, fill= sums)) + 
  geom_tile() +
  scale_fill_distiller(palette = "Blues") +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  xlab(label="") + ylab(label="")