communityprofiles/report.Rmd at master · UCRCSI/communityprofiles · GitHub

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
---
params:
  group: NA
  dataset: NA
title: "`r params$group` Community Profiles"
output: pdf_document
header-includes:
  - \usepackage{booktabs}
  - \usepackage{longtable}
  - \usepackage{array}
  - \usepackage{multirow}
  - \usepackage{xcolor}
  - \usepackage{wrapfig}
  - \usepackage{float}
  - \usepackage{colortbl}
  - \usepackage{pdflscape}
  - \usepackage{makecell}
  - \usepackage{tabu}
  - \usepackage{threeparttable}
  - \usepackage[normalem]{ulem}
  - \usepackage{fancyhdr}
  - \renewcommand{\familydefault}{\sfdefault}
  - \usepackage{helvet}
  - \renewcommand{\arraystretch}{1.5}
---

\addtolength{\headheight}{3cm}
\pagestyle{fancyplain}
\fancyhf{}
\chead{\includegraphics[height=3cm]{racial_data_logo_dark.png}}
\renewcommand{\headrulewidth}{0pt}

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo=FALSE, message=FALSE, warning=FALSE)
library(tidyverse)
library(DT)
library(knitr)
library(kableExtra)

```

## Total Population

```{r }
params$dataset$tot_pop %>%
  mutate_all(~str_replace(.x,"<br>","\n")) %>%
  mutate_all(linebreak) %>%
  kable(format = "latex", booktabs=T,escape = F) %>%
  kable_styling(full_width = T,font_size=9)
```

##Population Growth

```{r echo=FALSE, message=FALSE, warning=FALSE}
params$dataset$growth %>%
  mutate_all(~str_replace(.x,"<br>","\n")) %>%
  mutate_all(linebreak) %>%
  kable(format = "latex", booktabs=T,escape = T) %>%
  kable_styling(full_width = T,font_size=9)
```


## Income

```{r echo=FALSE, message=FALSE, warning=FALSE}
params$dataset$income %>%
  mutate_all(~str_replace(.x,"<br>"," ")) %>%
  kable(format = "latex", booktabs=T,escape = T) %>%
  kable_styling(full_width = T,font_size=9)
```


## Educational Attainment


```{r}
params$dataset$edu %>%
  mutate_all(~str_replace(.x,"<br>"," ")) %>%
  kable(format = "latex", booktabs=T,escape = T) %>%
  kable_styling(full_width = T,font_size=9)
```


## Age

```{r}
params$dataset$age %>%
  mutate_all(~str_replace(.x,"<br>"," ")) %>%
  kable(format = "latex", booktabs=T,escape = T) %>%
  kable_styling(full_width = T,font_size=9)


```


## Language

```{r}
params$dataset$lep %>%
  mutate_all(~str_replace(.x,"<br>"," ")) %>%
  kable(format = "latex", booktabs=T,escape = T) %>%
  kable_styling(full_width = T,font_size=9)
```


## Health Insurance
```{r}
params$dataset$ins %>%
  mutate_all(~str_replace(.x,"<br>"," ")) %>%
  kable(format = "latex", booktabs=T,escape = T) %>%
  kable_styling(full_width = T,font_size=9)
```

## Homeownership
```{r}
params$dataset$home %>%
  mutate_all(~str_replace(.x,"<br>"," ")) %>%
  kable(format = "latex", booktabs=T,escape = T) %>%
  kable_styling(full_width = T,font_size=9)
```

## Citizen Voting Age Population
```{r}
params$dataset$cvap %>%
  mutate_all(~str_replace(.x,"<br>"," ")) %>%
  kable(format = "latex", booktabs=T,escape = T) %>%
  kable_styling(full_width = T,font_size=9)
```


\clearpage