Create plot1.R

project1