fix plotting of group ellipses

grlloyd · grlloyd · commit 3f07eb46e0f3 · 2021-10-18T16:54:26.000+01:00
diff --git a/R/PCA_plotfcns.R b/R/PCA_plotfcns.R
@@ -283,7 +283,7 @@ setMethod(f="chart_plot",
         }
         
         if (obj$ellipse %in% c('all','group')) {
-            out = out +stat_ellipse(type=obj$ellipse_type,
+            out = out +stat_ellipse(data=A, aes_(x=~x,y=~y,colour=~group),type=obj$ellipse_type,
                 level=obj$ellipse_confidence) # ellipse for individual groups
         }
         

Original file line number	Diff line number	Diff line change
`@@ -283,7 +283,7 @@ setMethod(f="chart_plot",`
`283`	`283`	`}`
`284`	`284`
`285`	`285`	`if (obj$ellipse %in% c('all','group')) {`
`286`		`- out = out +stat_ellipse(type=obj$ellipse_type,`
	`286`	`+ out = out +stat_ellipse(data=A, aes_(x=~x,y=~y,colour=~group),type=obj$ellipse_type,`
`287`	`287`	`level=obj$ellipse_confidence) # ellipse for individual groups`
`288`	`288`	`}`
`289`	`289`