+
+
+
+
+
+
+
+ Chapitre 4 Abstraction de tâche
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Chapitre 31 Ajouter un encodage (aesthetics)
+.small[
+ +
+]
+—
+## Ajouter une 2ème géométrie
.small[
+ggplot(iris,
+ aes(x=Sepal.Length,
+ y=Sepal.Width,
+ color = Species)) +
+ geom_point() +
+ geom_smooth() #<<## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
+]
+
+
+
+31.1 Ajouter une facette
+.small[
+ggplot(iris,
+ aes(x=Sepal.Length,
+ y=Sepal.Width,
+ color = Species)) +
+ geom_point() +
+ geom_smooth(method='lm', se=FALSE) +
+ facet_grid(~Species) #<<
+]
+—
+## Régler le thème
.small[
+ggplot(iris,
+ aes(x=Sepal.Length,
+ y=Sepal.Width,
+ color = Species)) +
+ geom_point() +
+ geom_smooth(method='lm', se=FALSE) +
+ facet_grid(~Species) +
+ theme_minimal() #<<
+]
+
+
+
+31.2 Ajuster la légende
+.small[
+ggplot(iris,
+ aes(x=Sepal.Length,
+ y=Sepal.Width,
+ color = Species)) +
+ geom_point()+
+ theme_minimal() +
+ labs(title = "Sépales des iris",
+ subtitle = "Longueur et largeur des sépales* en fonction de l'espèce",
+ x= "Longueur",
+ y = "Largeur",
+ caption = "* Chacune des pièces du calice de la fleur. / source: Iris dataset"
+ ) +
+ guides(color = guide_legend(title = "Espèce")) #<<
+]
+—
+## Paufiner le thème
.small[
+ggplot(iris,
+ aes(x=Sepal.Length,
+ y=Sepal.Width,
+ color = Species)) +
+ geom_point()+
+ theme_minimal() +
+ labs(title = "Sépales des iris",
+ subtitle = "Longueur et largeur des sépales* en fonction de l'espèce",
+ x= "Longueur",
+ y = "Largeur",
+ caption = "* Chacune des pièces du calice de la fleur. / source: Iris dataset"
+ ) +
+ guides(color = guide_legend(title = "Espèce")) +
+ theme(panel.grid.minor = element_blank(), #<<
+ legend.position = "bottom") #<<
+]
+—
+# A l’aide !!!
+
+31.2.1 site du tidyverse: https://ggplot2.tidyverse.org
+
+
+31.2.2 R for datascience: https://r4ds.had.co.nz/
+
+
+31.2.3 stackoverfow: https://stackoverflow.com
+
+
+
+
+
+
+
+