add plot4

add plot4 R script and PNG file