Update plot4.R

updated header and comments