From 4b3fa56a07e591d42e2ee4e0e63b52ef561eb87f Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Thu, 23 Aug 2018 08:49:13 +0200
Subject: [PATCH] close #403

---
 NEWS.md           | 1 +
 R/plot_model.R    | 4 ++++
 R/plot_type_eff.R | 6 +++++-
 R/plot_type_int.R | 6 +++++-
 4 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index f49ba231..ba2f5f96 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -32,6 +32,7 @@ Following functions are now defunct:
 
 * Due to changes in the _broom_ and _lmerTest_ packages, tidiers did no longer work for `lmerModLmerTest` objects.
 * Fix issue with standardized coefficient (argument `show.std`) in `tab_model()`.
+* Argument `dot.size` and `line.size` in `plot_model()` now also apply to marginal effects plots.
 
 # sjPlot 2.5.0
 
diff --git a/R/plot_model.R b/R/plot_model.R
index b5b9f083..62bb24f5 100644
--- a/R/plot_model.R
+++ b/R/plot_model.R
@@ -632,6 +632,8 @@ plot_model <- function(model,
       axis.lim = axis.lim,
       case = case,
       show.legend = show.legend,
+      dot.size = dot.size,
+      line.size = line.size,
       ...
     )
 
@@ -654,6 +656,8 @@ plot_model <- function(model,
       axis.lim = axis.lim,
       case = case,
       show.legend = show.legend,
+      dot.size = dot.size,
+      line.size = line.size,
       ...
     )
 
diff --git a/R/plot_type_eff.R b/R/plot_type_eff.R
index 082264ee..79448e31 100644
--- a/R/plot_type_eff.R
+++ b/R/plot_type_eff.R
@@ -14,6 +14,8 @@ plot_type_eff <- function(type,
                           axis.lim,
                           case,
                           show.legend,
+                          dot.size,
+                          line.size,
                           ...) {
 
   if (type == "pred") {
@@ -64,7 +66,9 @@ plot_type_eff <- function(type,
     dot.alpha = dot.alpha,
     alpha = alpha,
     dodge = dodge,
-    log.y = log.y
+    log.y = log.y,
+    dot.size = dot.size,
+    line.size = line.size
   )
 
   # set axis and plot titles
diff --git a/R/plot_type_int.R b/R/plot_type_int.R
index 1f52ea9e..d475117a 100644
--- a/R/plot_type_int.R
+++ b/R/plot_type_int.R
@@ -19,6 +19,8 @@ plot_type_int <- function(model,
                           axis.lim,
                           case,
                           show.legend,
+                          dot.size,
+                          line.size,
                           ...) {
 
   # find right hand side of formula, to extract interaction terms
@@ -151,7 +153,9 @@ plot_type_int <- function(model,
       dot.alpha = dot.alpha,
       alpha = alpha,
       dodge = dodge,
-      log.y = log.y
+      log.y = log.y,
+      dot.size = dot.size,
+      line.size = line.size
     )
 
     # set axis and plot titles