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-22 11:35:06 -05:00
parent 4486218a6e
commit b165e93864
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -109,7 +109,8 @@ g1 <- ds1 %>%
x = NULL x = NULL
,y = NULL ,y = NULL
) )
g1
# g1
# this takes a bit to load. No discernable paterns in the data # 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$geom_jitter(size=.7, width=.1, alpha=.5, na.rm = TRUE) +
gp2$facet_wrap(~name, scales = "free") + gp2$facet_wrap(~name, scales = "free") +
gp2$theme_bw() + 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)