Add plot1.R to plot4.R and images