Create plot1.R

plot1.R for Exploratory Data Analysis