Merge pull request #54 from certara/plot_default_ylab

Default ylab plot text given vpc type
certara · Sep 26, 2023 · 4d1cdb5 · 4d1cdb5
2 parents c2e43a1 + 8ddcec2
commit 4d1cdb5
Show file tree

Hide file tree

Showing 7 changed files with 547 additions and 541 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -113,8 +113,14 @@ plot.tidyvpcobj <- function(x,
 
   if (is.null(ylab)) {
     ylab <-
-      sprintf("Observed/Simulated probabilities and associated %s%% CI",
-              100 * vpc$conf.level)
+      paste0(
+        ifelse(vpc_type == "continuous", "Percentiles", "Probabilities"),
+        sprintf(" and associated %s%% CI",
+                100 * vpc$conf.level)
+      )
+    if (is.null(vpc$stats)) {
+      ylab <- NULL
+    }
     if (isTRUE(vpc$predcor)) {
       ylab <- ifelse(length(ylab) == 0,
                      "Prediction Corrected",

diff --git a/tests/testthat/_snaps/plot/bins-without-stats.svg b/tests/testthat/_snaps/plot/bins-without-stats.svg
diff --git a/tests/testthat/_snaps/plot/censored-plot-with-aql.svg b/tests/testthat/_snaps/plot/censored-plot-with-aql.svg
diff --git a/tests/testthat/_snaps/plot/censored-plot-with-bql-aql.svg b/tests/testthat/_snaps/plot/censored-plot-with-bql-aql.svg
diff --git a/tests/testthat/_snaps/plot/censored-plot-with-bql.svg b/tests/testthat/_snaps/plot/censored-plot-with-bql.svg
diff --git a/tests/testthat/_snaps/plot/one-sided-strat-formula-with-facet-wrap.svg b/tests/testthat/_snaps/plot/one-sided-strat-formula-with-facet-wrap.svg
diff --git a/tests/testthat/_snaps/plot/two-sided-strat-formula-with-facet-grid.svg b/tests/testthat/_snaps/plot/two-sided-strat-formula-with-facet-grid.svg