I tried this code but it didn't worked.
covid <- read.csv(file = 'covid_au_state.csv')
dput(covid)
library(lubridate)
library(dplyr)
library(ggplot2)
covid$date <- as.Date(covid$date,'%d/%m/%y')
filt1 <- covid %>%
filter(between(covid$date, as.Date("2020-03-17", format = "%Y/%m/%d"),
as.Date("2020-08-16", format = "%Y/%m/%d")))
View(filt1)
What actually I am trying to do here is compare the daily growth factor across all the eight states in Australia from 17 March 2020 to 16 August 2020. (The growth factor is calculated by dividing the new cases on the current day with the new cases of the previous day.)
This is the inner structure of the file.
str(covid)
'data.frame': 1640 obs. of 13 variables:
$ date : Date, format: "2020-01-25" "2020-01-25" ...
$ state : chr "Australian Capital Territory" "New South Wales" "Northern Territory"
"Queensland" ...
$ state_abbrev : chr "ACT" "NSW" "NT" "QLD" ...
$ confirmed : int 0 3 0 0 0 0 1 0 0 0 ...
$ confirmed_cum: int 0 3 0 0 0 0 1 0 0 3 ...
$ deaths : int 0 0 0 0 0 0 0 0 0 0 ...
$ deaths_cum : int 0 0 0 0 0 0 0 0 0 0 ...
$ tests : int 0 0 0 0 0 0 0 0 0 0 ...
$ tests_cum : int 0 0 0 0 0 0 0 0 0 0 ...
$ positives : int 0 0 0 0 0 0 0 0 0 0 ...
$ positives_cum: int 0 0 0 0 0 0 0 0 0 0 ...
$ recovered : int 0 0 0 0 0 0 0 0 0 0 ...
$ recovered_cum: int 0 0 0 0 0 0 0 0 0 0 ...
Can someone please help?