addied plot2.R