Add plot4 png and R file