From 9bfcfa168827b2b8c2f088e5c1f6c19f5991703c Mon Sep 17 00:00:00 2001 From: Aaron Caldwell Date: Mon, 27 Apr 2020 18:05:08 -0400 Subject: [PATCH] Fix to ANOVA_design coord_cartesian creating error --- R/ANOVA_design.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/ANOVA_design.R b/R/ANOVA_design.R index a0bb1bf..fbe99e0 100644 --- a/R/ANOVA_design.R +++ b/R/ANOVA_design.R @@ -407,7 +407,7 @@ ANOVA_design <- function(design, n, mu, sd, r = 0, geom_point(position = position_dodge(width = 0.9), shape = 10, size = 5, stat = "identity") + #Personal preference for sd -- ARC geom_errorbar(aes(ymin = mu - sd, ymax = mu + sd), position = position_dodge(width = 0.9), size = .6, width = .3) + - coord_cartesian(ylim = c(min(mu) - sd, max(mu) + sd)) + + #coord_cartesian(ylim = c(min(mu) - max(sd), max(mu) + max(sd))) + theme_bw(base_size = 16) + ggtitle("Means for each condition in the design") } else { @@ -416,7 +416,7 @@ ANOVA_design <- function(design, n, mu, sd, r = 0, geom_point(position = position_dodge(width = 0.9), shape = 10, size = 5, stat = "identity") + #Personal preference for sd -- ARC geom_errorbar(aes(ymin = mu - sd, ymax = mu + sd), position = position_dodge(width = 0.9), size = .6, width = .3) + - coord_cartesian(ylim = c(min(mu) - sd, max(mu) + sd)) + + #coord_cartesian(ylim = c(min(mu) - sd, max(mu) + sd)) + theme_bw() + ggtitle("Means for each condition in the design") } if (plot == TRUE) {