From a020f901cf6678915298bbd0eda730a85fa63afb Mon Sep 17 00:00:00 2001
From: Fonti Kar <f.kar@unsw.edu.au>
Date: Wed, 19 Oct 2022 15:13:18 +1100
Subject: [PATCH] Using default ggplot colours for now for groups #1

---
 R/ggplot.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/ggplot.R b/R/ggplot.R
index 7fbc10c..e432bae 100644
--- a/R/ggplot.R
+++ b/R/ggplot.R
@@ -29,10 +29,11 @@ ggplot_none <- function(obj, pdat, grp = NULL, ...){
   p <- ggplot(data = pdat, aes(x = X, y = line_Y), ...) 
   
   if(length(obj$groups) > 1)
-  p <- ggplot(data = pdat, aes(x = X, y = line_Y, group = group), ...)
+  p <- ggplot(data = pdat, aes(x = X, y = line_Y, group = group, colour = group), ...)
   
   # Construct rest of plot
   p +
+    geom_point(aes(x = X, y = Y, group = group, colour = group), shape = 21, size = 2) + 
     geom_line(...) + 
     ylab(label = obj$variables[1]) +
     xlab(label = obj$variables[2]) +