Checking in plot1-4.R and plot1-4.png initial commit