add R scripts of plot1 to plot 4 for project .