Create  plot2.R