Create plot2.r