-
Notifications
You must be signed in to change notification settings - Fork 1
/
methods.Rmd
150 lines (109 loc) · 11.8 KB
/
methods.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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
---
title: "Methodology and Data"
description: |
Details of data sources and the methodology of analysis <ul class="list-inline title-nav">
<li class="list-inline-item-nav"><div class = "go-to-nav" >Go to: </div></li>
<li class="list-inline-item-nav">
<a href="providers.html"> <button type="button" class="btn btn-outline-light mb-2"> Providers </button>
</a>
</li>
<li class="list-inline-item-nav">
<a href="pace.html"> <button type="button" class="btn btn-outline-light mb-2"> Pace </button>
</a>
</li>
<li class="list-inline-item-nav">
<a href="equity"> <button type="button" class="btn btn-outline-light mb-2"> Equity </button>
</a>
</li>
</ul>
output:
distill::distill_article:
toc: true
css: methods_header.css
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(kableExtra)
```
## General Notes on Methods
For our analysis we have relied on major public data sources which include
* **[Texas Department of State Health Services (DSHS)](https://dshs.texas.gov/coronavirus/AdditionalData.aspx):** Texas state and county level data on COVID-19 cases, deaths and provision and administration of vaccine doses.
* **[Center of Disease Control](https://covid.cdc.gov/covid-data-tracker/#datatracker-home):** Covid-19 data of other states for comparison with Texas.
* **[American Community Survey (ACS)](https://www.census.gov/programs-surveys/acs):** State and County level estimates of population and demographics for year 2019 obtained through tidycensus R package.
Data from these sources has enabled us to construct graphical anaylsis of COVID-19 vaccine roll out and related areas of concern. We use population and demographic estimates from ACS-2019, which gives us the most recent figures on population. All graphs and analysis has been done in R with the help of different packages. We welcome any comment or suggestion related to this website. Please reach out to us if you have any feedback or want to report an error by creating an issue on [the source repository](https://github.com/utexas-lbjp-data/tx_vaccine_site).
## Equity
We use DSHS data on COVID-19 cases, deaths and vaccinations, which is published with demographic breakdowns like age, gender and race/ethnicity. A percentage analysis is presented with bar charts, showing the percentage share of each race in vaccination, Covid-19 cases, deaths and overall population.
For example the share of white people in these four areas is calculated as
```{r fig.width=10, include=TRUE, include=FALSE}
formula_table <- data.frame(
Items = c("% of Doses administered", "% of Cases", "% of Fatalities", "% of State Population"),
Equation = c("$$ \\scriptsize \\frac{\\text{No. doses administered to white people in Texas}} { \\text {Total no. of doses administered in Texas}} * 100 $$",
"$$ \\scriptsize \\frac{ \\text{No. of white people identified with COVID-19 in Texas}} { \\text{Total no. of COVID-19 cases in Texas}} * 100 $$",
"$$ \\scriptsize \\frac{ \\text{No. of COVID-19 related deaths in white population in Texas}} {\\text{Total no. of COVID-19 deaths in Texas}} * 100 $$",
"$$ \\scriptsize \\frac{\\text{No. of white people in Texas}} {\\text{Total Population of Texas}}* 100 $$"))
# kbl(formula_table)%>%
# kable_paper(full_width = F) %>%
# column_spec(1, bold=T, border_right = T) %>%
# column_spec(2, width= "30em") %>%
# kable_minimal()
# kbl(formula_table)
```
```{r echo=FALSE}
kbl(formula_table)%>%
kable_paper(full_width = F) %>%
column_spec(1, bold=T, border_right = T) %>%
column_spec(2, width= "30em") %>%
kable_minimal(html_font = "\"Libre Franklin\", verdana, sans-serif")
```
Administered doses is a summary figure of persons who have received a single dose and persons who are fully vaccinated. Similarly in the nexr graph we further split the demographics into gender and age group. A bar chart for each race shows the total number of people administered atleast one vaccine dose for each age group and each gender within that race. Same bar chart for the unknown gender category has also been created for all races that are mentioned in DSHS data.
To see the geographic accessability to vaccine sites, we take data on names and addresses of listed vaccine sites from DSHS. Using these addresses, we obtain the co-ordinates through [Mapbox](https://docs.mapbox.com/api/overview/) api. We then highlight the geographic areas which are 30 min drive away from each of vaccine sites by using Mapbox api. Using co-ordiantes of polygons that contain the area within 30 min drive of vaccine site, we calculate the number of people age 16 and above not living in these areas by using census block population estimates.
## Providers
To allow people to check the availability of vaccines in their areas, we provide the data obtained from DSHS website on vaccine sites locations and number of doses available at each site. Using this database, which is updated routinely, we provide a search option where people can search using name, street address or zip code for vaccine sites and the number of doses available at each site. Using [leaflet](https://leafletjs.com/) api, we provide an interactive map of the search area with vaccine sites highlighted on the map.
## Pace
We look at the pace of vaccination drive by taking data from DSHS which contains county wise information and is updated on daily basis to provide the following information:
```{r , include=TRUE , echo=FALSE, fig.width=12, layout= "l-body-outset"}
text_table <- data.frame(
Items = c('Total Doses Allocated',
'Vaccine Doses Administered',
'People Vaccinated with at least One Dose',
'People Fully Vaccinated',
'Population, 16+',
'Population, 65+',
'Population, Phase 1A Healthcare Workers',
'Population, Phase 1A Long-term Care Residents',
'Population, Phase 1B Any Medical Condition',
'Population, Education and Child Care Personnel'),
Details = c("Total number of doses allocated to COVID-19 providers through the current week by provider county (all other measures are summed by recipient's county of residence). Includes doses that will be shipping and arriving at providers this week.",
"The number of vaccine doses administered, number of people vaccinated with one dose and number of people fully vaccinated are aggregated by the recipient’s county of residence. Health care providers have 24 hours after a dose is administered to enter information into ImmTrac2, the Texas Immunization Registry. The data comes from vaccination records submitted by health care providers as of 11:59 the previous night.",
"Number of people vaccinated with one dose is defined as the number of people who have received at least one dose of COVID-19 vaccine.",
"Number of people fully vaccinated is defined as the number of people who have completed the full series (2 doses of Moderna or Pfizer vaccine), as outlined by the CDC's Advisory Committee on Immunization Practices (ACIP).",
"2019 Population Estimates available from the Texas Demographic Center at https://demographics.texas.gov/Data/TPEPP/Estimates/.",
"2019 Population Estimates available from the Texas Demographic Center at https://demographics.texas.gov/Data/TPEPP/Estimates/.",
"Phase 1A healthcare workers estimates include people providing direct care in hospitals, EMS, long-term care facilities, home health and hospice and those providing direct care in Offices of Physicians, Other Healthcare providers like physical therapists and Mental Health Providers, Outpatient Care Centers, Medical and Diagnostic Laboratories, Freestanding ER and Urgent Care, Other Ambulatory Care, Pharmacies, Last responders who provide mortuary or death services, Public health and emergency response staff directly involved in administration of COVID testing and vaccinations, and school nurses. Data on frontline and vulnerable populations in Texas come from the 2018 Annual Survey of Hospitals (total number of employees), DSHS EMS Registry, Texas Pharmacy Board, Texas Education Agency, 2019 Quarterly Census of Employment and Wages (https://texaslmi.com/LMIbyCategory/QCEW), and the HHSC Directory of Long-term Care Providers (https://hhs.texas.gov/doing-business-hhs/provider-portals/long-term-care-providers).",
"Long-term care resident estimates include licensed capacity of Nursing Homes, Assisted Living, Adult Day Care and Activity Centers, and Intermediate Care for People with Intellectual Disabilities.",
"People 16 years of age and older with at least one chronic medical condition that puts them at increased risk for severe illness from the virus that causes COVID-19. The data are model-based estimates from CDC using self-reported data from the Behavioral Risk Factor Surveillance System and U.S. census population data. The methodology for generating these estimates are detailed in this MMWR: https://www.cdc.gov/mmwr/volumes/69/wr/mm6929a1.htm.",
"Education and child care personnel include estimates include elementary and secondary school employees (NAICS 6111), child day care services employees (NAICS 6244), school bus drivers (NAICS 485410 and NAICS 485510), and school cafeteria employees (NAICS 722310)"
)
)
kbl(text_table)%>%
kable_paper(full_width = F)%>%
column_spec(1, bold=T, border_right = T) %>%
column_spec(2, width= "40em") %>%
kable_minimal(html_font = "\"Libre Franklin\", verdana, sans-serif")
```
Using this data, we show the progress of vaccination against the available doses and the remaining population in different phases. A national comparison is showed by comparing Texas number of vaccines distributed per 100,000 people and number of vaccines administered per 100,000 people with other states. The data on other states has been obtained through CDC and it allows us to rank Texas against other states in these two measures.
The distribution trends are shown through bar charts for total doses shipped to different provider types and total doses available at each provider types. The provider type is the classification of vaccine sites by State. Total doses shipped include total number of vaccine doses provided to each provider type uptil now. The available doses number gives us the current stock position of vaccine at each provider type.
The vaccine pace tracker provides a detail view of vaccination drive at the state and county level. Using the data from DSHS, which is provided on state and county level, we are able to construct a bar chart which provides information in percentage form, what percentage of population has been given at least one dose and what percentage of population has been fully vaccinated. The actual numbers can be seen by hovering the mouse over the bars. Some of the metrics used in these graphs are given as follow:
```{r , include=TRUE , echo=FALSE, fig.width=9, layout= "l-page"}
metric_table <-data.frame(
Metric = c("% of Population Partially vaccinated", "% of Population fully vaccinated", "Daily Average", "When 70% of Pop is vaccinated"),
Equation = c("$$ \\scriptsize \\frac{ \\text{No. of people given one dose}}{\\text{No. of people 16+ age}}*100$$","$$ \\scriptsize \\frac{\\text{No. of people fully vaccinated}}{\\text{No. of people 16+ age}}*100 $$", "$$ \\scriptsize \\frac{\\text{Total doses administered}}{\\text{No. of days since start of vaccination}} $$","$$ \\scriptsize \\text{Today} + \\frac{\\text{No. of doses required to vaccinate remaining 70% of Eligible Population}}{\\text{Average Daily Rate of dose administration}} $$")
)
kbl(metric_table, escape= FALSE)%>%
kable_paper(full_width = F)%>%
column_spec(1, bold=T, border_right = T) %>%
column_spec(2, width= "30em") %>%
kable_minimal(html_font = "\"Libre Franklin\", verdana, sans-serif")
```
## Photography Credit {.appendix}
Photo by <a href="https://unsplash.com/@noitadigital?utm_source=unsplash&utm_medium=referral&utm_content=creditCopyText">Noita Digital</a> on <a href="https://unsplash.com/s/photos/chalkboard?utm_source=unsplash&utm_medium=referral&utm_content=creditCopyText">Unsplash</a>