1 Matching Annotations
  1. Oct 2020
    1. Exercise 12.2.3

      table2 %>% pivot_wider(names_from = type, values_from=count) %>% group_by(year,country) %>% summarise(cases=sum(cases)) %>% ggplot(aes(x=year, y=cases,colour=country))+ geom_line()