add plot4.R script
add plot4.png