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-11 12:58:06 -05:00
parent c6f864cc48
commit edcfcdab55
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -82,3 +82,16 @@ g1 <- ds_high_tsh %>%
gp2$geom_histogram() +
gp2$facet_wrap(~name, scales = "free")
g1
g2 <- ds_high_tsh %>%
dplyr$select(-gender, -subject_id, - charttime) %>%
tidyr$pivot_longer(cols = !ft4_dia) %>%
ggplot(aes(x = factor(ft4_dia), y = value, fill = factor(ft4_dia))) +
gp2$geom_boxplot(outlier.shape = NA, na.rm = TRUE) +
gp2$geom_jitter(size=.7, width=.1, alpha=.5) +
gp2$facet_wrap(~name, scales = "free")
g2