Added plot4.R and png