Added figures and plot4.R