Create Smooth_scatter.R