The ggplot2 argument is linewidth -- should we instead go in the other direction to be consistent with the core plotting framework?

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.14.1.1
+Version: 0.14.1.2
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

NEWS.md

@@ -1,9 +1,10 @@
 # see (devel)
 
-## Breaking Changes
+## Changes
 
 * Argument `linewidth` was renamed to `size_line`, to be consistent across the
-  easystats-ecosystem.
+  easystats-ecosystem. However, `linewidth` remains as an alias, since this is
+  the name of the corresponding ggplot2-argument.
 
 # see 0.14.1
 

R/plot.binned_residuals.R

@@ -28,6 +28,11 @@ plot.see_binned_residuals <- function(
   }
   dots <- list(...)
 
+  # handle alias
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   # set defaults
   term <- attr(x, "term", exact = TRUE)
   if (is.null(dots[["show_dots"]])) {

R/plot.check_collinearity.R

@@ -38,6 +38,12 @@ plot.see_check_collinearity <- function(
     return(NULL)
   }
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   dat$group <- "low"
   dat$group[dat$VIF >= 5 & dat$VIF < 10] <- "moderate"
   dat$group[dat$VIF >= 10] <- "high"

R/plot.check_heteroscedasticity.R

@@ -34,6 +34,12 @@ plot.see_check_heteroscedasticity <- function(
     model <- data
   }
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   faminfo <- insight::model_info(model)
   r <- tryCatch(
     if (inherits(model, "merMod")) {

R/plot.check_model.R

@@ -54,6 +54,11 @@ plot.see_check_model <- function(
   show_dots <- .default_value(x, "show_dots", TRUE)
   ppc_range <- .default_value(x, "ppc_range")
 
+  # handle alias
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   # Check for Confidence Intervals: Backwards compatibility for older package
   # versions
   show_ci <- !isFALSE(attr(x, "show_ci"))

R/plot.check_normality.R

@@ -7,7 +7,8 @@
 #'   Options are `"qq"` (default) for quantile-quantile (Q-Q) plots,
 #'   `"pp"` for probability-probability (P-P) plots, or
 #'   `"density"` for density overlay plots.
-#' @param size_line Numeric value specifying size of line geoms.
+#' @param size_line Numeric value specifying size of line geoms. `linewidth` is
+#'   an alias for `size_line`.
 #' @param alpha_dot Numeric value specifying alpha level of the point geoms.
 #' @param alpha Numeric value specifying alpha level of the confidence bands.
 #' @param colors Character vector of length two, indicating the colors (in
@@ -65,6 +66,12 @@ plot.see_check_normality <- function(
     model <- data
   }
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   # for GLM, only halfnormal Q-Q plots
   if (inherits(model, "glm")) {
     type <- "qq"

R/plot.check_outliers.R

@@ -82,6 +82,12 @@ plot.see_check_outliers <- function(
   # depending on the method
   outlier_methods <- attr(x, "method", exact = TRUE)
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   # validate that the method is correct
   if (length(outlier_methods) == 0) {
     insight::format_error(

R/plot.check_overdisp.R

@@ -10,6 +10,12 @@ plot.see_check_overdisp <- function(
   type = 1,
   ...
 ) {
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   .plot_diag_overdispersion(
     x,
     theme = theme,

R/plot.check_predictions.R

@@ -132,6 +132,12 @@
   orig_x <- x
   check_range <- isTRUE(attributes(x)$check_range)
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   p1 <- .prepare_pp_check(
     x,
     size_line = size_line,
@@ -181,6 +187,12 @@
   x_limits <- .default_value(x, "x_limits", x_limits)
   type <- .default_value(x, "type", type)
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   p1 <- .prepare_pp_check(
     x,
     size_line = size_line,
@@ -286,7 +298,7 @@
   base_size = 10,
   size_axis_title = 10,
   size_title = 12,
   colors,
   type = "density",
   x_limits = NULL,
   is_stan = NULL,

R/plot.compare_performance.R

@@ -97,6 +97,12 @@ plot.see_compare_performance <- function(x, size_line = 1, ...) {
     x <- data_plot(x)
   }
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   p <- ggplot2::ggplot(
     x,
     ggplot2::aes(

R/plot.estimate_density.R

@@ -16,7 +16,7 @@
     # Check for various problematic conditions with descriptive variables
     is_parameter_empty <- length(dataplot$Parameter) == 0
     is_parameter_all_na <- all(is.na(dataplot$Parameter))
     has_parameter_all_empty_strings <- all(dataplot$Parameter == "")
     has_parameter_no_unique_values <- length(unique(dataplot$Parameter[
       !is.na(dataplot$Parameter)
     ])) ==
@@ -178,6 +178,12 @@
     }
   )
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   if (!inherits(x, "data_plot")) {
     x <- data_plot(x, data = model, centrality = centrality, ci = ci, ...)
   }

R/plot.p_function.R

@@ -44,6 +44,12 @@ plot.see_p_function <- function(
   # data for vertical CI level lines
   data_ci_segments <- x
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   # remove intercept?
   data_ribbon <- .remove_intercept(data_ribbon, show_intercept = show_intercept)
   data_ci_segments <- .remove_intercept(

R/plot.parameters_brms_meta.R

@@ -169,6 +169,12 @@ plot.see_parameters_brms_meta <- function(
     }
   )
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   if (!inherits(x, "data_plot")) {
     x <- data_plot(x, data = model, normalize_height = normalize_height, ...)
   }

R/plot.parameters_simulate.R

@@ -109,10 +109,17 @@ plot.see_parameters_simulate <- function(
 ) {
   is_mlm <- !is.null(attributes(x)$object_class) &&
     "mlm" %in% attributes(x)$object_class
+
   if (is.null(n_columns) && (isTRUE(is_mlm) || "Response" %in% colnames(x))) {
     n_columns <- 1
   }
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   # check for defaults
   if (missing(centrality) && !is.null(attributes(x)$centrality)) {
     centrality <- attributes(x)$centrality

R/plot.performance_simres.R

@@ -49,6 +49,12 @@ plot.see_performance_simres <- function(
   insight::check_if_installed("DHARMa")
   qqplotr_installed <- insight::check_if_installed("qqplotr", quietly = TRUE)
 
+  # handle alias
+  dots <- list(...)
+  if (!is.null(dots[["linewidth"]])) {
+    size_line <- dots[["linewidth"]]
+  }
+
   theme <- .set_default_theme(
     x,
     theme,