Update plot4.R

edit comments