Create plot4.R