Update plot4.R

Add comment