Create plot4.r

Creates the final, 4-piece graph