Working on plot2.R