Create plot 4.R