Cleaned up formatting in plot1.R
Added Plot 2