Update plot4.R with comments

Added comments