Create plot2.R