Add Plot2.R and output