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-24 15:46:43 -05:00
parent bbe5cd1ae8
commit 8ec07c6f7b
1 changed files with 5 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -85,21 +85,14 @@ summary_tbl <- ds1 %>%
# summary_tbl
# correlation plot
#code for saving corr plot
devEMF::emf(here("figures","corrplot.emf"))
corr_plot <- cor(
ds1 %>% dplyr$select(-gender,-ft4_dia, -subject_id, -charttime)
,use = "complete.obs"
) %>%
corrplot::corrplot(method = "number", type = "lower", tl.col = "black", tl.srt = 45
,col = corrplot::COL1("Greys"))
# pick color blind friendly pallete
#code for saving corr plot
devEMF::emf(here("figures","corrplot.emf"))
corrplot::corrplot(ds_corr, method = "number")
) %>%
corrplot::corrplot(method = "color", type = "lower", tl.col = "black", tl.srt = 45
,col = corrplot::COL1("Greys"), addCoef.col = 'white')
dev.off()