certara · certara-jcraig · Sep 26, 2023 · Sep 26, 2023 · Sep 26, 2023
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