Create  plot2.r