forked from damonbayer/uci_covid19_dashboard
-
Notifications
You must be signed in to change notification settings - Fork 0
/
incidence-maps.Rmd
64 lines (50 loc) · 1.31 KB
/
incidence-maps.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
---
title: "COVID-19 Maps by UCI Statistics"
output:
workflowr::wflow_html:
toc: false
editor_options:
chunk_output_type: console
---
<style type="text/css">
.main-container {
max-width: 1200px;
margin-left: auto;
margin-right: auto;
}
</style>
<br>
<br>
### Number of COVID-19 cases mapped to OC zip codes
```{r setup, echo = FALSE}
knitr::opts_chunk$set(
echo = FALSE,
fig.align = "center",
message = FALSE,
warning = FALSE
)
```
```{r libraries}
source("code/map-functions.R")
```
```{r generate-cases-map}
cases_covid_zip_data <- readRDS("data/cases_map_data.rds")
date_seq <- zoo::as.yearmon(
seq(as.Date("2020-03-01"), cases_covid_zip_data$max_date_in_data, by = "months"),
"%m/%Y"
)
gen_map_gif(
plot_data = cases_covid_zip_data$cases_plot_data,
socal_shp_file = "data/shape-files/socal-zip/Zipcode_boundary_scag_2009.shp",
ca_shp_file = "data/shape-files/ca-counties/cnty19_1.shp",
legend_label = cases_covid_zip_data$cases_legend_label,
month_seq = date_seq,
var_type = "cases"
)
```
```{r display-cases-map}
htmltools::includeHTML("docs/cases-map-gif.html")
```
Data provided by the [Orange County Health Care Agency](https://www.ochealthinfo.com).
Most recent date in data used was `r cases_covid_zip_data$max_date_in_data`.
Last updated on `r lubridate::today()`.