don't show smooth line by default, it fails too often

easystats · Sep 14, 2023 · 52cc4e9 · 52cc4e9
1 parent b3bd3e1
commit 52cc4e9
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.8.0.3
+Version: 0.8.0.4
 Authors@R: 
     c(person(given = "Daniel",
              family = "Lüdecke",

diff --git a/NEWS.md b/NEWS.md
@@ -14,6 +14,8 @@
   `method = "pointwise"`.
 * Plot method for `performance::check_normality()` now default to a detrended 
   QQ-plot. Previous behavior can be restored by setting `type = "density"`.
+* Plot method for `binned_residuals()` gains a `show_smooth` argument, to show
+  or hide the smooth line.
 
 # see 0.8.0
 

diff --git a/R/plot.binned_residuals.R b/R/plot.binned_residuals.R
@@ -4,6 +4,7 @@ plot.see_binned_residuals <- function(x,
                                       size_line = 0.7,
                                       size_point = 2.2,
                                       colors = social_colors(c("blue", "red", "green")),
+                                      show_smooth = FALSE,
                                       style = theme_lucid,
                                       ...) {
   x$se.lo <- -x$se
@@ -44,7 +45,7 @@ plot.see_binned_residuals <- function(x,
   p <- ggplot2::ggplot(data = x, ggplot2::aes(x = .data$xbar)) +
     ggplot2::geom_abline(slope = 0, intercept = 0, colour = "grey80")
 
-  if (isTRUE(insight::check_if_installed("mgcv", quietly = TRUE))) {
+  if (isTRUE(insight::check_if_installed("mgcv", quietly = TRUE)) && show_smooth) {
     p <- p +
       ggplot2::stat_smooth(
         ggplot2::aes(y = .data$ybar),