graph.base <- ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
    geom_point() +
    xlab("Longueur (mm)") +
    ylab("Largeur (mm)") + 
    ggtitle("Dimensions de sépales d'iris")