Create plot4.R

Initial version