Completed plot3.R script and added in plot