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"
)
,statistic = gtsummary$all_continuous() ~ c(
"{N_miss}"
"{p_miss}"
,"{median} ({p25}, {p75})"
,"{min}, {max}"
)
) %>%
gtsummary$bold_labels() %>%
# gtsummary$bold_labels() %>%
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_spanning_header(gtsummary$all_stat_cols() ~ "**Free T4 Diagnostic**")
gtsummary$modify_spanning_header(gtsummary$all_stat_cols() ~ "**Free T4 Outcome**")
# summary_tbl
#code for saving corr plot
devEMF::emf(here("figures","corrplot.emf"))
corr_plot <- cor(