library(tidyverse)
infect.data <- tibble(t=0:30, n=1.1^t)
ggplot(infect.data, aes(x=t, y=n)) + geom_line()
       
global.covid19.data.URL = paste(
  "https://github.com/CSSEGISandData/COVID-19",
  "raw/master/csse_covid_19_data/csse_covid_19_time_series",
  "time_series_covid19_confirmed_global.csv", 
  sep='/')

covid19.data <- read_csv(global.covid19.data.URL)

covid19.data <- pivot_longer(covid19.data, cols=`1/22/20`:ncol(covid19.data),
                             names_to = 'date', values_to = 'cases')
covid19.data <- mutate(covid19.data, date=parse_date(date, format="%m/%d/%y"))
us.covid19 <- filter(covid19.data, `Country/Region`=='US')
us.covid19.march <- filter(us.covid19, date >= '2020-03-01' & date <= '2020-03-31')

ggplot(us.covid19.march, aes(x=date, y=cases)) +
  geom_line()
ggplot(inf.data, aes(x=t, y=log(n, base=2))) + geom_line()
ggplot(us.covid19.march, aes(x=date, y=log(cases, base=2))) + geom_line()