Update plot4.R

- Typos