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
|
library(tidyverse)
library(knitr)
orig <- read_csv("../csv/donor_demo.csv")
data <- orig %>%
na_if("NULL") %>%
replace_na(list(Ethnicity="Unknown"))
age_table <- tribble(
~`Age (y)`, ~Value,
"Mean \\pm SD", paste(round(mean(data$Age), 2), "\\pm", round(sd(data$Age), 2)),
"Median (min. to max. range)", paste(median(data$Age), ' (', min(data$Age), "-", max(data$Age), ')')
) %>%
kable(format = "latex", booktabs = TRUE)
gender_table <- tribble(
~`Gender`, ~Value,
"Male (%)", paste(sum(data$Gender == "Male"), "(", round(sum(data$Gender == "Male")/ nrow(data), 3) * 100, ")"),
"Female", paste(sum(data$Gender == "Female"), ' (', round(sum(data$Gender == "Female") / nrow(data), 3) * 100 , ")")
) %>%
kable(format = "latex", booktabs = TRUE)
race_table <- tribble(
~`Gender`, ~Value,
"Caucasian (%)", paste(sum(data$Ethnicity == "Caucasian"), "(", round(sum(data$Ethnicity == "Caucasian")/ nrow(data), 3) * 100, ")"),
"African American (Black) (%)", paste(sum(data$Ethnicity == "Black or African American"), ' (', round(sum(data$Ethnicity == "Black or African American") / nrow(data), 3) * 100 , ")"),
"Asian (%)", paste(sum(data$Ethnicity == "Asian"), ' (', round(sum(data$Ethnicity == "Asian") / nrow(data), 3) * 100 , ")"),
"Hispanic/Latino (%)", paste(sum(data$Ethnicity == "Hispanic/Latino"), ' (', round(sum(data$Ethnicity == "Hispanic/Latino") / nrow(data), 3) * 100 , ")"),
"Other (%)", paste(sum(data$Ethnicity == "Other"), ' (', round(sum(data$Ethnicity == "Other") / nrow(data), 3) * 100 , ")"),
"Unknown (%)", paste(sum(data$Ethnicity == "Unknown"), ' (', round(sum(data$Ethnicity == "Unknown") / nrow(data), 3) * 100 , ")"),
) %>%
kable(format = "latex", booktabs = TRUE)
|
