Create proj2plot1.R