Addition of plot4 and its R file