adjust point sizes

easystats · Mar 24, 2024 · c3839c7 · c3839c7 · strengejacke · Mar 24, 2024
1 parent 1f50306
commit c3839c7
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 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.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
@@ -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
@@ -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", ],