diff --git a/R/plot.check_model.R b/R/plot.check_model.R index e2c40020d..fd24c6599 100644 --- a/R/plot.check_model.R +++ b/R/plot.check_model.R @@ -149,6 +149,7 @@ plot.see_check_model <- function(x, show_labels = show_labels, size_text = size_text, size_line = size_line, + size_point = size_point, theme_style = style, colors = colors, dot_alpha_level = dot_alpha_level, diff --git a/R/plot.check_outliers_new.R b/R/plot.check_outliers_new.R index 9ade11d2e..1ac6f132e 100644 --- a/R/plot.check_outliers_new.R +++ b/R/plot.check_outliers_new.R @@ -4,6 +4,7 @@ ref.linetype = "dashed", show_labels = TRUE, size_line = NULL, + size_point = 2, size_text = NULL, theme_style = theme_lucid, colors = unname(social_colors(c("green", "blue grey", "red"))), @@ -23,7 +24,12 @@ p <- ggplot(plot_data, aes(x = .data$Hat, .data$Std_Residuals)) if (isTRUE(show_dots)) { - p <- p + geom_point2(aes(colour = .data$Influential), na.rm = na.rm, alpha = dot_alpha_level) + p <- p + geom_point2( + aes(colour = .data$Influential), + na.rm = na.rm, + alpha = dot_alpha_level, + size = size_point + ) } p <- p + diff --git a/man/plot.see_check_collinearity.Rd b/man/plot.see_check_collinearity.Rd index 865efbd18..5fcc13c51 100644 --- a/man/plot.see_check_collinearity.Rd +++ b/man/plot.see_check_collinearity.Rd @@ -8,7 +8,7 @@ x, data = NULL, colors = c("#3aaf85", "#1b6ca8", "#cd201f"), - size_point = 4, + size_point = 3.5, size_line = 0.8, ... )