The 2nd plot and its R file!