adding Plot2.R