From b165e9386425b9eeda077a8ea0894ae215f6d6ff Mon Sep 17 00:00:00 2001
From: Kyle Belanger <kyleb44@hotmail.com>
Date: Sun, 22 Jan 2023 11:35:06 -0500
Subject: [PATCH] Update 1-data-exploration.R

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

diff --git a/ML/1-data-exploration.R b/ML/1-data-exploration.R
index 98bea75..9c5f8ff 100644
--- a/ML/1-data-exploration.R
+++ b/ML/1-data-exploration.R
@@ -109,7 +109,8 @@ g1 <- ds1 %>%
     x = NULL
     ,y = NULL
   )
-g1
+
+# g1
 
 
 # this takes a bit to load.  No discernable paterns in the data
@@ -121,9 +122,19 @@ g2 <- ds_recode %>%
   gp2$geom_jitter(size=.7, width=.1, alpha=.5, na.rm = TRUE) +
   gp2$facet_wrap(~name, scales = "free") +
   gp2$theme_bw() +
-  gp2$scale_fill_brewer(palette = "Greys")
+  gp2$scale_fill_brewer(
+    palette = "Greys"
+    ,labels = c("Hypo","Non-Hypo","Normal TSH","Hyper","Non-Hyper")
+    ) +
+  gp2$labs(
+    x = NULL
+    ,y = NULL
+    ,fill = "Lab Diagnosis"
+  )
 
-g2
+# g2
+
+gp2$ggsave(here("figures","boxplot.png"), width = 7, height = 7, dpi = 300)