initial plot2.R