tidytuesday-2020-07-20-jrosen48

library(tidyverse)
library(tidytuesdayR)
library(janitor)

tt_output <- tt_load_gh(last_tuesday())
list_of_d <- tt_download(tt_output)

d <- list_of_d$animal_complaints

d %>%
  clean_names() %>%
  mutate(animal_type = tools::toTitleCase(animal_type)) %>%
  count(animal_type, complaint_type) %>%
  spread(complaint_type, n, fill = 0) %>%
  gather(complaint_type, n, -animal_type) %>%
  ggplot(aes(fill = animal_type, y = n, x = reorder(complaint_type, n))) +
  geom_col(positio = "dodge") +
  hrbrthemes::theme_ipsum() +
  scale_fill_brewer("", type = "qual") +
  xlab(NULL) +
  ylab(NULL) +
  ggtitle("What Animals do Brisbane, Australia Residents Complaint About?")

ggsave("animal-complaints.png", width = 8, height = 6)