Create plot2.R

INIT