Create plot4.R

plot4.R for Exploratory Data Analysis