plot4 png
plot4 R code