Update plot4.R

comments added later