Create plot4.R

initial commit with final solution