plot(iris$Sepal.Length,iris$Sepal.Width, main="Répartition des lanceurs en fonction des compétitions \n Poids et Disque",ylab="Disque",xlab="Poids",col=iris$Species,pch=17,
col.main="Red")
text(iris$Sepal.Length,iris$Sepal.Width,labels=iris$Species,pos=1,cex=0.6,srt=30) #We specify the points and corresponding labels
grid(col = "lightgrey", lty = "dotted", lwd = 0.9)
legend("topleft", legend = c("OlympicG", "Decastar"), col = c("red", "black"), pch =
17,inset=c(0.12,0.16))