diff --git a/src/cv_model_analyses.Rmd b/src/cv_model_analyses.Rmd index 8296eed..89cb6e9 100644 --- a/src/cv_model_analyses.Rmd +++ b/src/cv_model_analyses.Rmd @@ -200,7 +200,8 @@ bind_rows( ) %>% mutate(network = parse_factor(network, levels = c("PGS-only", "PGS-combo"))) %>% plot_confusion_matrix(title = "") + - facet_wrap(vars(network), ncol = 2) + facet_wrap(vars(network), ncol = 2) + + theme(text=element_text(size=20)) ``` ```{r} diff --git a/src/cv_model_analyses.pdf b/src/cv_model_analyses.pdf new file mode 100644 index 0000000..c58c4b0 Binary files /dev/null and b/src/cv_model_analyses.pdf differ diff --git a/src/pgs_analyses.Rmd b/src/pgs_analyses.Rmd index 707ecbc..25109af 100644 --- a/src/pgs_analyses.Rmd +++ b/src/pgs_analyses.Rmd @@ -638,7 +638,7 @@ dur_pgs_deltas_bar %>% coord_cartesian(xlim = c(0, 40)) + labs( x = "Added time to case (minutes)", - y = "Parkland Grading Scale" + y = "PGS" ) ggsave("../output/pgs_duration.svg", width = 6, height = 6) ggsave("../output/pgs_duration.pdf", width = 6, height = 6) @@ -1111,7 +1111,7 @@ tidy_hole_samples %>% scale_fill_brewer(labels = c("95%", "80%", "50%"), palette = "Purples") + scale_y_continuous(labels = scales::percent_format()) + labs( - x = "Parkland Grading Scale", + x = "PGS", y = "Probability of an Inadvertent Gallbladder Hole", fill = "Compatibility\nIntervals" ) @@ -1477,8 +1477,8 @@ tidy_cvs_samples %>% coord_cartesian(xlim = c(-0.1, 2)) + geom_vline(xintercept = 1, linetype = 2) + labs( - x = "Odds Ratio of Attaining the Critical View of Safety", - y = "Parkland Grading Scale" + x = "Odds Ratio of Attaining the CVS", + y = "PGS" ) ggsave("../output/pgs_cvs.svg", width = 6, height = 4) ggsave("../output/pgs_cvs.pdf", width = 6, height = 4) diff --git a/src/pgs_analyses.pdf b/src/pgs_analyses.pdf new file mode 100644 index 0000000..a754dd2 Binary files /dev/null and b/src/pgs_analyses.pdf differ