forked from damonbayer/uci_covid19_dashboard
-
Notifications
You must be signed in to change notification settings - Fork 0
/
testing-maps.Rmd
66 lines (53 loc) · 1.46 KB
/
testing-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
65
66
---
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 tests (positive + negative) 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-tests-map}
tests_plot_data <- read.csv("data/tests_map_data.csv")[, -1]
tests_plot_data$zip <- as.character(tests_plot_data$zip)
tests_legend_label <- readLines("data/tests_legend_label.txt")
max_date_in_data <- readLines("data/max_date_in_map_data.txt")
date_seq <- zoo::as.yearmon(
seq(as.Date("2020-03-01"), as.Date(max_date_in_data), by = "months"),
"%m/%Y"
)
gen_map_gif(
plot_data = tests_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 = tests_legend_label,
month_seq = date_seq,
var_type = "tests"
)
```
```{r display-tests-map}
htmltools::includeHTML("docs/tests-map-gif.html")
```
Data provided by the [Orange County Health Care Agency](https://www.ochealthinfo.com).
Most recent date in data used was `r tests_covid_zip_data$max_date_in_data`.
Last updated on `r lubridate::today()`.