kyle.belanger/DHSC-Capstone
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Update 1-data-exploration.R

Browse source
This commit is contained in:
Kyle Belanger 2023-01-20 08:26:10 -05:00
parent c331ab3f38
commit eb770c9d77
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
ML/1-data-exploration.R
View file

@ -81,16 +81,21 @@ high_table_summary <- ds_high_tsh %>%
gtsummary$tbl_summary( gtsummary$tbl_summary(
by = ft4_dia by = ft4_dia
,missing = "no" ,missing = "no"
,type = gtsummary$all_continuous() ~ "continuous2"
,label = list( ,label = list(
gender ~ "Gender" gender ~ "Gender"
,anchor_age ~ "Age" ,anchor_age ~ "Age"
) )
,statistic = list( ,statistic = gtsummary$all_continuous() ~ c(
gtsummary$all_continuous() ~ "{median} ({min}-{max}) "{N_miss}",
/n Missing: {N_miss} " "{median} ({p25}, {p75})",
"{min}, {max}"
) )
) %>% ) %>%
gtsummary$add_p() %>% gtsummary$bold_labels() %>%
gtsummary$add_stat_label(
label = gtsummary$all_continuous() ~ c("Missing", "Median (IQR)", "Range")
) %>%
gtsummary$modify_header(label = "**Variable**") %>% gtsummary$modify_header(label = "**Variable**") %>%
gtsummary$modify_spanning_header(gtsummary$all_stat_cols() ~ "**Free T4 Diagnostic**") gtsummary$modify_spanning_header(gtsummary$all_stat_cols() ~ "**Free T4 Diagnostic**")