Final plot3.R Final plot4.R