Create plot1.R

The  script  for  plot1