-
Notifications
You must be signed in to change notification settings - Fork 0
/
09-appendix.Rmd
150 lines (128 loc) · 6.51 KB
/
09-appendix.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
146
147
148
149
# Appendix
\newpage
## Glossary Table
```{r, glossary-table, echo=FALSE}
glossary_df <-
tribble(
~Abbreviation, ~Definition, ~Source,
"ACS", "American Community Survey", "https://www.census.gov/programs-surveys/acs",
"BLM", "Bureau of Land Management", "https://www.blm.gov/",
"BOR", "Bureau of Reclamation", "https://www.usbr.gov/",
"MEDS", "Master of Environmental Data Science", "https://bren.ucsb.edu/masters-programs/master-environmental-data-science",
"NPS", "National Park Service", "https://www.nps.gov/index.htm",
"R1S", "Recreation One Stop", "https://www.recreation.gov/",
"UCSB", "University of California, Santa Barbara", "https://www.ucsb.edu/",
"USACE", "United States Army Corps of Engineers", "https://www.usace.army.mil/",
"USFS", "United States Forest Service", "https://www.fs.usda.gov/"
)
knitr::kable(glossary_df,
align = "l",
caption = "A table of abbreviations, their definitions, and source URLS.",
row.names = FALSE) %>%
kable_styling(bootstrap_options = c("responsive"),
full_width = TRUE,
position = "left")
```
\newpage
## Functions Table
```{r, func-table1, echo=FALSE}
acs_functions_df <-
tribble(
~Script, ~Purpose,
"function_acs_deciles_median_income.R", "Calculate decile values of California census household median-income",
"function_acs_education.R", "Call and calculate education percentages for given geographic area and state",
"function_acs_language.R", "Call and calculate language percentages for given geographic area and state",
"function_acs_median_income.R", "Call and calculate median-income percentages for given geographic area and state",
"function_acs_race.R", "Call and calculate race percentages for given geographic area and state",
"function_acs_top_quartile_education.R", "Calculate weighted third quartile value of California census education percentages",
"function_acs_top_quartile_language.R", "Calculate weighted third quartile value of California census language percentages",
"function_acs_top_quartile_race.R", "Calculate weighted third quartile value of California census race percentages",
"function_ridb_subset-pre2018.R", "Subset RIDB data",
"function_ridb_variable_calculate-pre2018.R", "Define, standardize, and aggregate values and calculated additional derived variables",
"function_join_ridb_acs.R", "Join RIDB and ACS data",
"function_map_ca_data.R", "Create dataset for California ZIP code visitorshed map",
"function_map_us_data.R", "Create dataset for US State visitorshed map",
"function_ridb_deciles_median_income.R", "Create dataset for median-income data relationship plots",
"function_ridb_top_quartile_education.R", "Create dataset for education data relationship plots",
"function_ridb_top_quartile_language.R", "Create dataset for language data relationship plots",
"function_ridb_top_quartile_race.R", "Create dataset for race data relationship plots"
)
knitr::kable(acs_functions_df,
align = "l",
caption = "A table of the cleaning and wrangling functions created for the ACS and RIDB data and functions to create data sets for visitorshed maps and data relationship plots.",
row.names = FALSE) %>%
kable_styling(bootstrap_options = c("responsive"),
full_width = TRUE,
position = "left")
```
\newpage
## Metadata Table
```{r, metadata-tab, echo=FALSE, message=FALSE}
# read in metadata
data_joined_2018_metadata_df <-
read_csv(here("../outdoor-equity/outdoor-equity-app/oe_app/data/data_joined_2018_metadata.csv")) %>%
rename("Variable Name" = variable_name,
"Data Source" = data_source,
Definition = definition,
Unit = unit,
Class = class,
"Data Type" = data_type,
Provenance = provenance_filepath,
"Missing Value Code" = missing_value_code,
"Total Unique Values" = total_unique_values) %>%
select("Variable Name", Definition)
# create table of metadata
knitr::kable(head(data_joined_2018_metadata_df, 25),
align = "l",
caption = "A table of metadata for the joined RIDB-ACS dataset",
row.names = FALSE) %>%
kable_styling(bootstrap_options = c("responsive"),
full_width = TRUE,
position = "left")
```
\newpage
## Packages Table
```{r, packages-tab, echo=FALSE}
r_packages_df <-
tribble(
~"R Package", ~Version, ~Purpose,
"bslib", "0.3.1", "Web Application (theme)",
"collections", "0.3.5", "Web Application (dictionary)",
"DT", "0.20", "Web Application (tables)",
"formattable", "0.2.1", "Web Application (tables)",
"googlesheets4", "1.0.0", "Web Application (metadata)",
"here", "1.0.1", "Data cleaning (relative file paths)",
"janitor", "2.1.0", "Data cleaning (data frame)",
"lubridate", "1.7.10", "Data cleaning (dates)",
"plotly", "4.10.0", "Data visualiation (plots)",
"reactlog", "1.1.0", "Web Application (testing)",
"rmapshaper", "0.4.5", "Web Application (load time)",
"rsconnect", "0.8.25", "Web Application (deploy app)",
"scales", "1.1.1", "Data visualiation (plots)",
"sf", "1.0.7", "Data cleaning and visualization (maps)",
"shiny", "1.7.1", "Web Application (build app)",
"shinycssloaders", "1.0.0", "Web Application (plot loader)",
"shinydashboard", "0.7.2", "Web Application (dashboard layout elements)",
"shinydashboardPlus", "2.0.3", "Web Application (box elements)",
"shinyjs", "2.1.0", "Web Application (hide and show boxes in ui)",
"shinyWidgets", "0.6.4", "Web Application (inputs)",
"tidycensus", "1.2.1", "Data acquisition (US census data)",
"tidyverse", "1.3.1", "Data cleaning, analysis, and visualization",
"tigris", "1.6", "Data acquisition (state and ZIP code geometries)",
"tmap", "3.3.2", "Data visualization (maps)",
"vroom", "1.5.7", "Data cleaning (read in data)",
"zipcodeR", "0.3.3", "Data acquisition (state info about ZIP code)"
)
knitr::kable(r_packages_df,
align = "l",
caption = "A table of information on packages used to create the Outdoor Equity App.",
row.names = FALSE) %>%
kable_styling(bootstrap_options = c("responsive"),
full_width = F,
position = "left")
```
\newpage
## Repository Directory Structure
```{r, repo-directory, echo=FALSE, fig.cap = "Screenshot of the Metadata page of the Outdoor Equity App"}
knitr::include_graphics("images/repo_directory_medfont.png", dpi = 275)
```