library(ggplot2)
ggplot(iris)

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  )

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point()

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale"
  )

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  )

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  ) +
  ggtitle(
    "Relation entre longueur et largeur des pétales"
  )

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  ) +
  ggtitle(
    "Relation entre longueur et largeur des pétales",
    subtitle = "Jeu de données Iris"
  )

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  ) +
  ggtitle(
    "Relation entre longueur et largeur des pétales",
    subtitle = "Jeu de données Iris"
  ) +
  scale_x_continuous(breaks = 1:7)

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  ) +
  ggtitle(
    "Relation entre longueur et largeur des pétales",
    subtitle = "Jeu de données Iris"
  ) +
  scale_x_continuous(breaks = 1:7) +
  scale_y_continuous(
    labels = scales::label_number(decimal.mark = ",")
  )

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  ) +
  ggtitle(
    "Relation entre longueur et largeur des pétales",
    subtitle = "Jeu de données Iris"
  ) +
  scale_x_continuous(breaks = 1:7) +
  scale_y_continuous(
    labels = scales::label_number(decimal.mark = ",")
  ) +
  coord_equal()

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  ) +
  ggtitle(
    "Relation entre longueur et largeur des pétales",
    subtitle = "Jeu de données Iris"
  ) +
  scale_x_continuous(breaks = 1:7) +
  scale_y_continuous(
    labels = scales::label_number(decimal.mark = ",")
  ) +
  coord_equal() +
  facet_grid(cols = vars(Species))

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  ) +
  ggtitle(
    "Relation entre longueur et largeur des pétales",
    subtitle = "Jeu de données Iris"
  ) +
  scale_x_continuous(breaks = 1:7) +
  scale_y_continuous(
    labels = scales::label_number(decimal.mark = ",")
  ) +
  coord_equal() +
  facet_grid(cols = vars(Species)) +
  guides(color = guide_legend(nrow = 2))

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  ) +
  ggtitle(
    "Relation entre longueur et largeur des pétales",
    subtitle = "Jeu de données Iris"
  ) +
  scale_x_continuous(breaks = 1:7) +
  scale_y_continuous(
    labels = scales::label_number(decimal.mark = ",")
  ) +
  coord_equal() +
  facet_grid(cols = vars(Species)) +
  guides(color = guide_legend(nrow = 2)) +
  theme_light()

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  ) +
  ggtitle(
    "Relation entre longueur et largeur des pétales",
    subtitle = "Jeu de données Iris"
  ) +
  scale_x_continuous(breaks = 1:7) +
  scale_y_continuous(
    labels = scales::label_number(decimal.mark = ",")
  ) +
  coord_equal() +
  facet_grid(cols = vars(Species)) +
  guides(color = guide_legend(nrow = 2)) +
  theme_light() +
  theme(
    legend.position = "bottom"
  )

library(ggplot2)
ggplot(iris) +
  aes(
    x = Petal.Length, 
    y = Petal.Width, 
    colour = Species
  ) +
  geom_point() +
  labs(
    x = "Longueur du pétale",
    y = "Largeur du pétale",
    colour = "Espèce"
  ) +
  ggtitle(
    "Relation entre longueur et largeur des pétales",
    subtitle = "Jeu de données Iris"
  ) +
  scale_x_continuous(breaks = 1:7) +
  scale_y_continuous(
    labels = scales::label_number(decimal.mark = ",")
  ) +
  coord_equal() +
  facet_grid(cols = vars(Species)) +
  guides(color = guide_legend(nrow = 2)) +
  theme_light() +
  theme(
    legend.position = "bottom",
    axis.title = element_text(face = "bold")
  )