adjust y scale

easystats · Jun 10, 2024 · 5151d86 · 5151d86
1 parent 2029646
commit 5151d86
Show file tree

Hide file tree

Showing 3 changed files with 13 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.4.3
+Version: 0.8.4.4
 Authors@R: 
     c(person(given = "Daniel",
              family = "Lüdecke",

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,10 @@
+# see 0.8.5
+
+## Minor Changes
+
+* Improved scaling for detrended QQ plots when package *qqplotr* is not installed.
+  The normal and the detrended QQ plots are now visually more similar.
+
 # see 0.8.4
 
 ## Minor Changes

diff --git a/R/plot.check_normality.R b/R/plot.check_normality.R
@@ -279,6 +279,7 @@ plot.see_check_normality <- function(x,
     # to scale the detrended qq plot
     N <- length(x$y)
     SD <- stats::sd(x$y) * sqrt((N - 1) / N)
+    y_range <- c(min(pretty(range(x$y), n = 2)), max(pretty(range(x$y), n = 2)))
 
     gg_init <- ggplot2::ggplot(x, ggplot2::aes(sample = .data$y))
 
@@ -307,7 +308,10 @@ plot.see_check_normality <- function(x,
         stroke = 0,
         size = size_point,
         colour = colors[2]
-      )
+      ),
+      if (detrend) {
+        ggplot2::ylim(y_range)
+      }
     )
 
     if (detrend) {