Commit plot4

.R script and PNG file