added scripts Plot1.R Plot2.R Plot3.R and Plot4.R