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