From 8ec07c6f7b99724f4ba114076a32930ac3d2c8e7 Mon Sep 17 00:00:00 2001
From: Kyle Belanger <kyleb44@hotmail.com>
Date: Tue, 24 Jan 2023 15:46:43 -0500
Subject: [PATCH] Update 1-data-exploration.R

---
 ML/1-data-exploration.R | 17 +++++------------
 1 file changed, 5 insertions(+), 12 deletions(-)

diff --git a/ML/1-data-exploration.R b/ML/1-data-exploration.R
index 483174d..4a8c440 100644
--- a/ML/1-data-exploration.R
+++ b/ML/1-data-exploration.R
@@ -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()