scatter.smooth(x=cars$speed, y=cars$dist, main="Dist ~ Speed") # scatterplot
Other example :
catter.smooth(x=nombre_mots$Nombre.de.Mots, y=nombre_mots$Densité.Lexicale, main="Nombre de Mots vs Densité Lexicale. Ensemble de Documents", xlab = "Nombre de Mots", ylab = "Densité Lexicale")