aurielfournier · August 25, 2017 20:52
diff --git a/example_of_ellipse_on_only_one_group.R b/example_of_ellipse_on_only_one_group.R
 library(ggplot2)
 library(tidyverse)

 faithful$group <- factor(ifelse(faithful$eruptions>3, 1, 0))

 subfaith <- faithful %>% filter(group=="1")

 ggplot(data=faithful,aes(waiting, eruptions, color = group)) +
  geom_point() +
  stat_ellipse(data=subfaith,aes(waiting, eruptions, color = group))
	library(ggplot2)
	library(tidyverse)

	faithful$group <- factor(ifelse(faithful$eruptions>3, 1, 0))

	subfaith <- faithful %>% filter(group=="1")

	ggplot(data=faithful,aes(waiting, eruptions, color = group)) +
	geom_point() +
	stat_ellipse(data=subfaith,aes(waiting, eruptions, color = group))