In boboburo/sa_covidIE: Covid Irealdn Dashboard

knitr::opts_chunk$set(echo = TRUE)

f_date <- lubridate::ymd("2020-07-31")




plt <- dailycases %>%
  filter(county_name == "Kildare") %>%
      dplyr::filter(time_stamp <= f_date) %>%
      dplyr::filter(time_stamp >= (f_date- lubridate::days(30))) %>%
      ggplot2::ggplot(aes(x = time_stamp)) +
      ggplot2::geom_line(aes(y = plt1_y , color = "red")) +
      ggplot2::geom_line(aes(y = plt1_y, color = "blue"))

plt

boboburo/sa_covidIE documentation built on Dec. 31, 2020, 8:56 p.m.