Update plot4.R

Minor mod to code