Update plot4.R

Comment for peer correctors added