Update plot4.R and png