Add Draw_plots.R script