Create plot4.R

plot 4 for Coursera assignment