Push the knit button!

library(tidyverse) # contains ggplot2, dplyr, tidyr, etc

tuberculosis dataset

tb <- read_csv(here::here("data/TB_notifications_2020-07-01.csv")) %>% 
  dplyr::select(country, iso3, year, new_sp_m04:new_sp_fu) %>%
  pivot_longer(cols=new_sp_m04:new_sp_fu, names_to="sexage", values_to="count") %>%
  mutate(sexage = str_replace(sexage, "new_sp_", "")) %>%
  mutate(sex=substr(sexage, 1, 1), 
         age=substr(sexage, 2, length(sexage))) %>%
  dplyr::select(-sexage) %>%
  filter(!(age %in% c("04", "014", "514", "u"))) %>%
  filter(year > 1996, year < 2013) %>%
  mutate(age_group = factor(age, 
                            labels = c("15-24", "25-34", "35-44", 
                                       "45-54", "55-64", "65-"))) %>%
  dplyr::select(country, year, age_group, sex, count)

# Filter Australia
tb_oz <- tb %>% 
  filter(country == "Australia") 

Exercise 1.1: Stacked bar chart

# add your code here!

Exercise 1.2: Side-by-side bar chart

# add your code here!

Exercise 1.3: Facetted bar chart

# add your code here!

Exercise 1.4: Facetted bar chart for 2012

# add your code here!

Exercise 1.5: Reverse facetted bar chart for 2012

# add your code here!

Exercise 1.6: Facetted pie chart for 2012

# add your code here!

Exercise 1.7: Reverse facetted pie chart for 2012

# add your code here!

Exercise 1.8: Aggregated count bar chart

# add your code here!

Exercise 1.9: Showing proportions

# add your code here!

Exercise 1.10: Overlaying a model

# add your code here!