Update plot4.R

Updated comments