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-25 08:13:35 -05:00
parent 0416cd2bc3
commit 980e5f1334
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -70,21 +70,20 @@ summary_tbl <- ds1 %>%
,anchor_age ~ "Age" ,anchor_age ~ "Age"
) )
,statistic = gtsummary$all_continuous() ~ c( ,statistic = gtsummary$all_continuous() ~ c(
"{N_miss}" "{p_miss}"
,"{median} ({p25}, {p75})" ,"{median} ({p25}, {p75})"
,"{min}, {max}" ,"{min}, {max}"
) )
) %>% ) %>%
gtsummary$bold_labels() %>% # gtsummary$bold_labels() %>%
gtsummary$add_stat_label( gtsummary$add_stat_label(
label = gtsummary$all_continuous() ~ c("Missing", "Median (IQR)", "Range") 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 Outcome**")
# summary_tbl # summary_tbl
#code for saving corr plot #code for saving corr plot
devEMF::emf(here("figures","corrplot.emf")) devEMF::emf(here("figures","corrplot.emf"))
corr_plot <- cor( corr_plot <- cor(