# Chapitre 31 Ajouter un encodage (aesthetics)

.small[

    ggplot(iris,
           aes(x=Sepal.Length,
               y=Sepal.Width,
               color = Species)) +   #<<
      geom_point()

] — ## 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

### 31.2.4 votre moteur de recherche préféré