In CBDRH/COVIDreconnoitR: Pulls and Analyses COVID data

knitr::opts_chunk$set(echo = FALSE, 
                      cache = FALSE,
                      collapse = TRUE,
                      tidy.opts = list(width.cutoff = 60),
                      tidy = TRUE)

library(covidrecon)
library(dplyr)
library(ggplot2)
library(lubridate)
library(ggplot2)
library(ggrepel)

covid <- covid_latest()

selected_countries <- c("China",
                        "Singapore",
                        "Japan",
                        "Italy",
                        "Spain",
                        "United_States_of_America",
                        "United_Kingdom",
                        "Australia",
                        "South_Korea")

covid_over_100 <- covid %>% 
  filter_country_over_limit(limit = 100)

gg_covid_cumulative_cases(covid_over_100)

The "Grattan Institute" cumulative incidence plot

https://blog.grattan.edu.au/2020/03/australian-governments-can-choose-to-slow-the-spread-of-coronavirus-but-they-must-act-immediately/

covid_since_100 <- covid %>% 
  add_days_since_limit(limit = 100) %>% 
  filter(days_since_limit >= 0)

covid_since_100_selected <- covid_since_100 %>% 
  filter(country_region %in% selected_countries)
covid_since_100_selected

gg_covid_cumulative_exceed_limit(covid_since_100_selected)

CBDRH/COVIDreconnoitR documentation built on May 28, 2020, 6:15 a.m.