Using default ggplot colours for now for groups #1

traitecoevo · Oct 19, 2022 · a020f90 · a020f90
1 parent 29ad965
commit a020f90
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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]) +