Create plot4.R

Script for creating plot4