plot4.R and example plot4.png added