Merge pull request #252 from epiforecasts/fix-ggplot2-update

Fix ggplot2 update

DESCRIPTION

@@ -47,8 +47,8 @@ Encoding: UTF-8
 LazyData: true
 Imports: 
     data.table,
-    ggdist (>= 3.1.0),
-    ggplot2,
+    ggdist (>= 3.2.0),
+    ggplot2 (>= 3.4.0),
     methods,
     rlang,
     scoringRules,
@@ -64,7 +64,7 @@ Config/Needs/website:
     r-lib/pkgdown,
     amirmasoudabdol/preferably
 Config/testthat/edition: 3
-RoxygenNote: 7.2.0
+RoxygenNote: 7.2.1
 URL: https://epiforecasts.io/scoringutils/, https://github.com/epiforecasts/scoringutils
 BugReports: https://github.com/epiforecasts/scoringutils/issues
 VignetteBuilder: knitr

NAMESPACE

@@ -63,6 +63,7 @@ importFrom(ggdist,geom_lineribbon)
 importFrom(ggplot2,.data)
 importFrom(ggplot2,`%+replace%`)
 importFrom(ggplot2,aes)
+importFrom(ggplot2,after_stat)
 importFrom(ggplot2,coord_cartesian)
 importFrom(ggplot2,coord_flip)
 importFrom(ggplot2,element_blank)

R/plot.R

@@ -260,7 +260,7 @@ plot_ranges <- function(scores,
     geom_point(size = 2) +
     geom_line(aes(group = range),
       colour = "black",
-      size = 0.01
+      linewidth = 0.01
     ) +
     scale_color_continuous(low = "steelblue", high = "salmon") +
     theme_scoringutils() +
@@ -993,7 +993,7 @@ plot_pairwise_comparison <- function(comparison_result,
 #' # sample-based pit
 #' pit <- pit(example_integer, by = c("model"))
 #' plot_pit(pit)
-#' @importFrom ggplot2 ggplot aes xlab ylab geom_histogram stat theme_light
+#' @importFrom ggplot2 ggplot aes xlab ylab geom_histogram stat theme_light after_stat
 #' @export
 
 plot_pit <- function(pit,
@@ -1054,7 +1054,7 @@ plot_pit <- function(pit,
         data = pit,
         aes(x = pit_value)
       ) +
-        geom_histogram(aes(y = stat(width * density)),
+        geom_histogram(aes(y = after_stat(width * density)),
           breaks = plot_quantiles,
           colour = "grey"
         ) +
@@ -1066,7 +1066,7 @@ plot_pit <- function(pit,
       data = data.frame(x = pit),
       aes(x = x)
     ) +
-      geom_histogram(aes(y = stat(width*density)),
+      geom_histogram(aes(y = after_stat(width * density)),
         breaks = plot_quantiles,
         colour = "grey"
       )