Create plot4.R

Cote to create plot4.png