R scripts and generated png file for Plot2