Plot2.R