RC: CRAN 0.12.0 (#413)

Author: IndrajeetPatil

.Rbuildignore

@@ -32,3 +32,4 @@
 ^air.toml
 ^[.]?air[.]toml$
 ^\.vscode$
+^.claude

.claude/settings.local.json

@@ -0,0 +1,10 @@
+{
+  "permissions": {
+    "allow": [
+      "Bash(Rscript:*)",
+      "Bash(R CMD check:*)"
+    ],
+    "deny": [],
+    "ask": []
+  }
+}

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.11.0.8
+Version: 0.12.0
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",
@@ -70,7 +70,7 @@ Imports:
     correlation (>= 0.8.8),
     datawizard (>= 1.2.0),
     effectsize (>= 1.0.1),
-    ggplot2 (>= 3.5.2),
+    ggplot2 (>= 4.0.0),
     insight (>= 1.4.1),
     modelbased (>= 0.13.0),
     patchwork (>= 1.3.2),
@@ -122,7 +122,7 @@ Suggests:
 Encoding: UTF-8
 Language: en-US
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Config/testthat/edition: 3
 Config/testthat/parallel: true
 Config/Needs/website: easystats/easystatstemplate

NEWS.md

@@ -1,4 +1,4 @@
-# see (development version)
+# see 0.12.0
 
 ## Major Changes
 
@@ -16,6 +16,13 @@
 * Minor re-labelling of axis titles and subtitles in `plot()` for
   `performance::check_residuals()`.
 
+* Updates the package to adapt to the changes in the latest `{ggplot2}`
+  release.
+
+* Themes get an `axis.text.space` argument, to define the spacing between axis
+  lines and axis labels. Due to changes in `{ggplot2}`, the default spacing was
+  slightly changed, now it can be set to the desired value using this argument.
+
 # see 0.11.0
 
 ## Changes

R/geom_binomdensity.R

@@ -33,7 +33,8 @@
 #' ggplot() +
 #'   geom_binomdensity(data, x = "Sepal.Length", y = "Species", scale = "proportion")
 #' ggplot() +
-#'   geom_binomdensity(data,
+#'   geom_binomdensity(
+#'     data,
 #'     x = "Sepal.Length", y = "Species",
 #'     scale = list("setosa" = 0.4, "versicolor" = 0.6)
 #'   )
@@ -63,14 +64,13 @@ geom_binomdensity <- function(data, x, y, scale = "auto", ...) {
 
   # ggdist geom
   ggdist::geom_dots(
-    # TODO: use tidy evaluation with `ggplot2::aes()` instead
-    suppressWarnings(ggplot2::aes_string(
-      x = x,
-      y = y,
-      side = ".side",
-      justification = ".justification",
-      scale = ".scale"
-    )),
+    ggplot2::aes(
+      x = .data[[x]],
+      y = .data[[y]],
+      side = .data$.side,
+      justification = .data$.justification,
+      scale = .data$.scale
+    ),
     data = data,
     na.rm = TRUE,
     ...

R/geom_from_list.R

@@ -45,8 +45,7 @@
 #' l2 <- list(
 #'   geom = "boxplot",
 #'   data = iris,
-#'   aes = list(x = "Species", y = "Sepal.Width"),
-#'   outlier.shape = NA
+#'   aes = list(x = "Species", y = "Sepal.Width")
 #' )
 #' l3 <- list(
 #'   geom = "jitter",
@@ -79,10 +78,9 @@
 #' ggplot() +
 #'   geom_from_list(list(
 #'     geom = "density_2d_raster", data = iris,
-#'     aes = list(x = "Sepal.Width", y = "Petal.Length")
-#'   )) +
-#'   scale_x_continuous(expand = c(0, 0)) +
-#'   scale_y_continuous(expand = c(0, 0))
+#'     aes = list(x = "Sepal.Width", y = "Petal.Length"),
+#'     contour = FALSE
+#'   ))
 #'
 #' # Example 4 (facet and coord flip) --------------------------
 #'

R/plot.effectsize_table.R

@@ -26,9 +26,10 @@ plot.see_effectsize_table <- function(x, ...) {
   x$.es <- x[, es_name]
 
   if (all(c("CI_low", "CI_high") %in% colnames(x))) {
-    CIs <- geom_errorbarh(
+    CIs <- geom_errorbar(
       aes(xmin = .data$CI_low, xmax = .data$CI_high),
-      height = 0
+      orientation = "y",
+      width = 0
     )
   } else {
     NULL
@@ -75,7 +76,11 @@ plot.see_equivalence_test_effectsize <- function(x, ...) {
   x$.es <- x[, es_name]
 
   ggplot(x, aes(y = .data$Parameter, color = .data$ROPE_Equivalence)) +
-    geom_errorbarh(aes(xmin = .data$CI_low, xmax = .data$CI_high), height = 0) +
+    geom_errorbar(
+      aes(xmin = .data$CI_low, xmax = .data$CI_high),
+      orientation = "y",
+      width = 0
+    ) +
     geom_point(aes(x = .data$.es), size = 2) +
     geom_vline(xintercept = 0) +
     geom_vline(xintercept = unique(attr(x, "rope")), linetype = "dashed") +

R/plot.estimate_density.R

@@ -209,13 +209,14 @@ plot.see_estimate_density <- function(
     my_summary$y <- NA
 
     p <- p +
-      geom_errorbarh(
+      geom_errorbar(
         data = my_summary,
         mapping = aes(
           xmin = .data$CI_low,
           xmax = .data$CI_high,
           color = "Posterior"
         ),
+        orientation = "y",
         linewidth = linewidth
       ) +
       geom_point(

R/plot.parameters_brms_meta.R

@@ -203,13 +203,14 @@ plot.see_parameters_brms_meta <- function(
       scale = 1,
       alpha = alpha_posteriors
     ) +
-    ggplot2::geom_errorbarh(
+    ggplot2::geom_errorbar(
       data = datasummary,
       mapping = ggplot2::aes(
         xmin = .data$CI_low,
         xmax = .data$CI_high,
         color = .data$Color
       ),
+      orientation = "y",
       linewidth = linewidth
     ) +
     ggplot2::geom_point(

R/plot.parameters_model.R

@@ -854,8 +854,9 @@ plot.see_parameters_model <- function(
     theme_modern(legend.position = "none") +
     color_scale +
     fill_scale +
-    ggplot2::geom_errorbarh(
-      height = 0,
+    ggplot2::geom_errorbar(
+      orientation = "y",
+      width = 0,
       linewidth = size_point
     ) +
     ggplot2::geom_point(