Update plot4.R

Update the second comment.