Create plot3.R

plot 3