Create plot1.R

first hist of the project