adding plot4.R plot4.png