added file fonction_scatterplot.R