plot4 R script and PNG