plot4 - R script and PNG output