From c3839c7dd24841d4586da14b323b59b62e3dfa9b Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Sun, 24 Mar 2024 21:23:46 +0100
Subject: [PATCH] adjust point sizes

---
 DESCRIPTION                | 2 +-
 R/plot.check_model.R       | 2 +-
 R/plot.check_predictions.R | 8 ++++----
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 6df4c5225..6a227617b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.8.3
+Version: 0.8.3.1
 Authors@R: 
     c(person(given = "Daniel",
              family = "Lüdecke",
diff --git a/R/plot.check_model.R b/R/plot.check_model.R
index b6c9a32e7..e2c40020d 100644
--- a/R/plot.check_model.R
+++ b/R/plot.check_model.R
@@ -173,7 +173,7 @@ plot.see_check_model <- function(x,
       p$QQ <- plot(
         x$QQ,
         size_line = size_line,
-        size_point = size_point,
+        size_point = 0.9 * size_point,
         alpha = alpha_level,
         dot_alpha = dot_alpha_level,
         colors = colors,
diff --git a/R/plot.check_predictions.R b/R/plot.check_predictions.R
index 03af126d1..62ce2d5ae 100644
--- a/R/plot.check_predictions.R
+++ b/R/plot.check_predictions.R
@@ -329,7 +329,7 @@ plot.see_performance_pp_check <- function(x,
           color = .data$key
         ),
         position = ggplot2::position_nudge(x = 0.2),
-        size = size_point,
+        size = 0.4 * size_point,
         linewidth = size_line,
         stroke = 0,
         shape = 16
@@ -341,7 +341,7 @@ plot.see_performance_pp_check <- function(x,
           y = .data$count,
           color = .data$key
         ),
-        size = size_point,
+        size = 1.5 * size_point,
         stroke = 0,
         shape = 16
       )
@@ -363,7 +363,7 @@ plot.see_performance_pp_check <- function(x,
       ),
       alpha = line_alpha,
       position = ggplot2::position_jitter(width = 0.1, height = 0.02),
-      size = size_point * 0.8,
+      size = 0.8 * size_point,
       stroke = 0,
       shape = 16
     ) +
@@ -376,7 +376,7 @@ plot.see_performance_pp_check <- function(x,
           group = .data$grp,
           color = .data$key
         ),
-        size = size_point * 0.8
+        size = 0.8 * size_point
       ) +
       ggplot2::geom_point(
         data = x[x$key == "Observed data", ],