plot2.R complete