Fichiers annexes régression

02_Regression/figures.R

@@ -0,0 +1,19 @@
+library(tidyverse)
+
+data(iris)
+
+(
+iris %>%
+  ggplot() +
+  aes(x = Species, y = Sepal.Length) +
+  geom_jitter(width = .1)
+)%>%
+  ggsave(plot = ., filename = "sepal_species.png")
+
+(
+iris %>%
+  ggplot() +
+  aes(x = Petal.Length, y = Sepal.Length) +
+  geom_point()
+)%>%
+  ggsave(plot = ., filename = "sepal_petal.png")