Create plot4.R

plot 4