#useing the clean dataset w/ labels

PASAbstractClean_labels <- read_csv("PASAbstractClean_labels.csv")
## New names:
## Rows: 10169 Columns: 18
## ── Column specification
## ──────────────────────────────────────────────────────── Delimiter: "," chr
## (14): year, month, day, childgender, caregivergender, childrace, caregiv... dbl
## (4): ...1, record_id, project, phase
## ℹ Use `spec()` to retrieve the full column specification for this data. ℹ
## Specify the column types or set `show_col_types = FALSE` to quiet this message.
## • `` -> `...1`
data<-PASAbstractClean_labels

Patient Gender

table.pgen <- table(data$childgender,data$phase)

kbl(table.pgen) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
Female; Woman; Girl 4366 498
Male; Man; Boy 4697 453
Nonbinary 4 22
Not Reported 118 6
Prefer Not to Respond 1 4

Caregiver Gender

table.cgen <- table(data$caregivergender,data$phase)

kbl(table.cgen) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
Female; Woman; Girl 6914 410
Male; Man; Boy 1892 112
Nonbinary 12 2
Not Reported 366 458
Prefer Not to Respond 2 1

Patient Age

table.page <- table(data$childage,data$phase)

kbl(table.page) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
13-17 years 2235 298
18+ 216 21
2-4 years 1458 142
5-12 years 2891 314
less than 2 years 2268 175
Not Reported 118 33

Caregiver Age

table.cage <- table(data$caregiverage,data$phase)

kbl(table.cage) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
11 0 1
18-24 years 424 39
25-34 years 2753 241
35-44 years 3735 390
45-54 years 1694 176
55-64 years 247 33
65-74 years 30 3
75+ 3 1
Not Reported 300 99

Education

table.edu <- table(data$education2,data$phase)

kbl(table.edu) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
4 year college graduate 2118 188
8 grade or less 253 67
High School grad or GED 1457 213
More than 4 year college Degree 1795 187
Not Reported 101 39
Prefer not to answer this question 0 4
Some college or 2 year degree 2990 227
Some High School but did not graduate 472 58

Income

table.income <- table(data$income2,data$phase)

kbl(table.income) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
$0-$2,500 51 36
$2,500-$5,000 24 23
$5,000-$7,500 30 30
$7,500+ 35 36
I don’t know 20 38
Not Reported 9013 793
Prefer not to answer 13 27

Language

table.lang <- table(data$langofcare,data$phase)

kbl(table.lang) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
Arabic 29 35
Chinese 12 13
English 8626 738
Language not listed 0 8
Russian 5 2
Somali 6 14
Spanish 493 163
Vietnamese 15 10

Legal

table.legal <- table(data$legal2,data$phase)

kbl(table.legal) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
No 88 18
Not Reported 684 250
Yes 8414 715

Caregiver Relation

table.relation <- table(data$caregivertype,data$phase)

kbl(table.relation) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
Aunt or Uncle 16 4
Father 1851 168
Grandfather 5 0
Grandmother 50 7
Mother 6936 700
Not Reported 259 94
Older brother or sister 7 3
Other 35 4
Stepfather 13 2
Stepmother 14 1

Patient Race

table.prace <- table(data$childrace,data$phase)

kbl(table.prace) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
American Indian or Alaskan native 152 23
Asian 652 103
Black or African American 347 96
Latino or Hispanic 931 193
Native Hawaiian or other Pacific Islander 115 59
Not Reported 317 94
Other or Multiracial 1935 218
White 4737 197

Caregiver Race

table.crace <- table(data$caregiverrace,data$phase)

kbl(table.crace) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
1 2
American Indian or Alaskan native 163 24
Asian 697 127
Black or African American 364 82
Latino or Hispanic 1181 241
Native Hawaiian or other Pacific Islander 145 21
Not Reported 151 70
Other or Multiracial 778 119
White 5707 299

Phase

table.phase <- table(data$phase)

kbl(table.phase) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
Var1 Freq
1 9186
2 983

test

table.double <- table(data$caregiverrace,data$project,data$phase)

kbl(table.double) %>%
  kable_paper(bootstrap_options = "striped", full_width = F)
Var1 Var2 Var3 Freq
American Indian or Alaskan native 1 1 1
Asian 1 1 8
Black or African American 1 1 12
Latino or Hispanic 1 1 18
Native Hawaiian or other Pacific Islander 1 1 0
Not Reported 1 1 4
Other or Multiracial 1 1 5
White 1 1 15
American Indian or Alaskan native 2 1 0
Asian 2 1 7
Black or African American 2 1 9
Latino or Hispanic 2 1 9
Native Hawaiian or other Pacific Islander 2 1 0
Not Reported 2 1 1
Other or Multiracial 2 1 18
White 2 1 11
American Indian or Alaskan native 3 1 0
Asian 3 1 0
Black or African American 3 1 0
Latino or Hispanic 3 1 0
Native Hawaiian or other Pacific Islander 3 1 0
Not Reported 3 1 0
Other or Multiracial 3 1 0
White 3 1 0
American Indian or Alaskan native 4 1 2
Asian 4 1 2
Black or African American 4 1 1
Latino or Hispanic 4 1 5
Native Hawaiian or other Pacific Islander 4 1 2
Not Reported 4 1 1
Other or Multiracial 4 1 11
White 4 1 38
American Indian or Alaskan native 5 1 0
Asian 5 1 0
Black or African American 5 1 0
Latino or Hispanic 5 1 0
Native Hawaiian or other Pacific Islander 5 1 0
Not Reported 5 1 0
Other or Multiracial 5 1 0
White 5 1 0
American Indian or Alaskan native 6 1 0
Asian 6 1 0
Black or African American 6 1 0
Latino or Hispanic 6 1 0
Native Hawaiian or other Pacific Islander 6 1 0
Not Reported 6 1 0
Other or Multiracial 6 1 0
White 6 1 0
American Indian or Alaskan native 7 1 0
Asian 7 1 0
Black or African American 7 1 0
Latino or Hispanic 7 1 0
Native Hawaiian or other Pacific Islander 7 1 0
Not Reported 7 1 0
Other or Multiracial 7 1 0
White 7 1 0
American Indian or Alaskan native 8 1 0
Asian 8 1 0
Black or African American 8 1 0
Latino or Hispanic 8 1 0
Native Hawaiian or other Pacific Islander 8 1 0
Not Reported 8 1 0
Other or Multiracial 8 1 0
White 8 1 0
American Indian or Alaskan native 9 1 65
Asian 9 1 325
Black or African American 9 1 140
Latino or Hispanic 9 1 306
Native Hawaiian or other Pacific Islander 9 1 57
Not Reported 9 1 43
Other or Multiracial 9 1 324
White 9 1 2421
American Indian or Alaskan native 10 1 0
Asian 10 1 0
Black or African American 10 1 0
Latino or Hispanic 10 1 151
Native Hawaiian or other Pacific Islander 10 1 0
Not Reported 10 1 3
Other or Multiracial 10 1 3
White 10 1 0
American Indian or Alaskan native 11 1 0
Asian 11 1 0
Black or African American 11 1 0
Latino or Hispanic 11 1 0
Native Hawaiian or other Pacific Islander 11 1 0
Not Reported 11 1 0
Other or Multiracial 11 1 0
White 11 1 0
American Indian or Alaskan native 12 1 95
Asian 12 1 355
Black or African American 12 1 202
Latino or Hispanic 12 1 692
Native Hawaiian or other Pacific Islander 12 1 86
Not Reported 12 1 99
Other or Multiracial 12 1 417
White 12 1 3222
American Indian or Alaskan native 1 2 0
Asian 1 2 0
Black or African American 1 2 0
Latino or Hispanic 1 2 0
Native Hawaiian or other Pacific Islander 1 2 0
Not Reported 1 2 0
Other or Multiracial 1 2 0
White 1 2 0
American Indian or Alaskan native 2 2 0
Asian 2 2 0
Black or African American 2 2 0
Latino or Hispanic 2 2 0
Native Hawaiian or other Pacific Islander 2 2 0
Not Reported 2 2 0
Other or Multiracial 2 2 0
White 2 2 0
American Indian or Alaskan native 3 2 0
Asian 3 2 0
Black or African American 3 2 1
Latino or Hispanic 3 2 3
Native Hawaiian or other Pacific Islander 3 2 0
Not Reported 3 2 1
Other or Multiracial 3 2 0
White 3 2 1
American Indian or Alaskan native 4 2 0
Asian 4 2 0
Black or African American 4 2 0
Latino or Hispanic 4 2 0
Native Hawaiian or other Pacific Islander 4 2 0
Not Reported 4 2 0
Other or Multiracial 4 2 0
White 4 2 0
American Indian or Alaskan native 5 2 6
Asian 5 2 20
Black or African American 5 2 11
Latino or Hispanic 5 2 17
Native Hawaiian or other Pacific Islander 5 2 1
Not Reported 5 2 2
Other or Multiracial 5 2 22
White 5 2 33
American Indian or Alaskan native 6 2 0
Asian 6 2 1
Black or African American 6 2 0
Latino or Hispanic 6 2 25
Native Hawaiian or other Pacific Islander 6 2 0
Not Reported 6 2 0
Other or Multiracial 6 2 0
White 6 2 0
American Indian or Alaskan native 7 2 1
Asian 7 2 1
Black or African American 7 2 2
Latino or Hispanic 7 2 3
Native Hawaiian or other Pacific Islander 7 2 0
Not Reported 7 2 4
Other or Multiracial 7 2 2
White 7 2 16
American Indian or Alaskan native 8 2 0
Asian 8 2 0
Black or African American 8 2 0
Latino or Hispanic 8 2 0
Native Hawaiian or other Pacific Islander 8 2 0
Not Reported 8 2 61
Other or Multiracial 8 2 0
White 8 2 0
American Indian or Alaskan native 9 2 0
Asian 9 2 0
Black or African American 9 2 0
Latino or Hispanic 9 2 0
Native Hawaiian or other Pacific Islander 9 2 0
Not Reported 9 2 0
Other or Multiracial 9 2 0
White 9 2 0
American Indian or Alaskan native 10 2 0
Asian 10 2 0
Black or African American 10 2 0
Latino or Hispanic 10 2 0
Native Hawaiian or other Pacific Islander 10 2 0
Not Reported 10 2 0
Other or Multiracial 10 2 0
White 10 2 0
American Indian or Alaskan native 11 2 17
Asian 11 2 105
Black or African American 11 2 68
Latino or Hispanic 11 2 193
Native Hawaiian or other Pacific Islander 11 2 20
Not Reported 11 2 2
Other or Multiracial 11 2 95
White 11 2 249
American Indian or Alaskan native 12 2 0
Asian 12 2 0
Black or African American 12 2 0
Latino or Hispanic 12 2 0
Native Hawaiian or other Pacific Islander 12 2 0
Not Reported 12 2 0
Other or Multiracial 12 2 0
White 12 2 0